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

бесконечно

Объяснение:

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

(1*2**5)-6-7=1

var s1,s2: string;

begin

  s1: ="параллелограмм";

  s2: ="гром";

  for i: = 1 to length(s1) do

  begin

      if i > length(s2) then s[i]='';

      if s1[i]< > s2[i] then s1[i]=s2[i];

    writeln(s1);

  end;

end.

чем не вариант, если правил нету)