Нужна программа по информатике нахождение наименьшего общего делителя, !

Var
a,b,c:integer;
Begin
Read(a,b);
While b<>0 do
Begin
C:= a mod b;
A:= b;
B:= c;
End;
Writeln(a);
End.