Сколько раз выполняется цикл
a:= 15; b:= 20
нц пока a < b; a:= a – 1 кц

бесконечно

Объяснение:

если же будет a := a + 1, то 4 раза цикл выполнится

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.