This short text file is program2.txt.
Before using it, delete these comment lines
and all lines before the first begin.

begin
   for k := 2 to 10 do
      begin
         x := k;
         if x = k then
            x := 30
         else
            x := 1
      end
end