1 program hello; 2 3 var 4 st : string; 5 6 procedure print_hello; 7 begin 8 Writeln('Before assignment'); { set breakpoint 1 here } 9 st:='Hello, world!'; 10 writeln(st); {set breakpoint 2 here } 11 end; 12 13 begin 14 print_hello; 15 end. 16