var a,b: integer;
begin
while (a<>0) and (b<>0)do
if a>b then
a:=a mod b
else
b:= b mod a;
end.
1Дополните программу оператором вывода результата.
2Запишите условный оператор, который выводит результат, проверяя одну из переменных на равенство нулю.
3ДОПОЛНИТЕ программу так, чтобы она считала ещё и количество сделанных шагов цикла. ( Введите переменную-счётчик целого типа).

program Evklid;

var a, b, s: integer;

begin

//Добавлен оператор ввода чисел

 readln (a, b);

// Добавлен условный оператор из пункта 2

 if not ((a=0) or (b=0)) then

 begin

  // Добавлен счетчик шагов s из пункта 3

   s:=0;

   while (a<>0) and (b<>0)do

   begin

     if a>b then

       a:=a mod b

   else

       b:= b mod a;

   s:=s+1;

 end;

 end;

// Добавлен оператор вывода из пункта 1

 writeln('Nod = ',a+b, ',  S = ',s);

end.

Результат выполнения программы: