СРОЧНО НУЖНО ПЕРЕВЕСТИ В КУМИР

[email protected] в категроии Информатика, вопрос открыт 02.04.2017 в 22:05

function gcd(a, b: longint): longint;
// Нахождение НОД
var
i: longint;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
gcd := a
end;

var
a, b: longint;

begin
Write('Введите два натуральных числа: '); Readln(a, b);
Writeln('НОД(', a, ',', b, ')=', gcd(a, b))
end.