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