НАПИШИТЕ БЛОК-СХЕМУ

While

Объяснение:

Для вывода результатов работы программы на экран используются процедуры: Write

Объяснение:

var a,b: integer;

begin

  readln(a,b);

  repeat

     if(a>b) then a:=a-b;

     if(b>a) then b:=b-a;

  until (a<>b); 

  writeln('gcd = ', a);

end.

var a,b: integer;

begin

  readln(a,b);

  while (a<>b) do begin

     if(a>b) then a:=a-b;

     if(b>a) then b:=b-a;

  end;

  writeln('gcd = ', a);

end.

Подробнее - на -