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

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.