посчитайте program Evklid;var a,b: integer;beginwhile (a<>0) and (b<>0)doif a>b thena:=a mod belseb:= 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.

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