напишите программу в паскале abc

var a,b,n:integer;
begin
writeln('введите число: ');
read(n);
a := n div 100;
b := n mod 100;
while a <> b do
if a > b then a := a - b
else b := b - a;
writeln('НОД первой и второй части: ', a);
end.