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

begin
   x := 12;
   y := 3;
   for k := 1 to 10 do
      if (y + 1) = ((k - 1) * 3) then
         x := (8 - (4 - y))
      else
         x := ((x + 2) * y)
end