Question

Описать функцию, позволяющую находить наибольший общий делитель двух заданных чисел. помогите плиииииииззз. заранее спасибо.

Answer 1

var a,b:integer;
begin
writeln ('введи 2 числа');
readln (a,b);
while a<>b do
if a>b then a:=a-b
else b:=b-a;
writeln (a);
end.