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

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