Написать программу: Пусть дан прямоугольник, длины сторон которого а и b – натуральные числа. На сколько квадратов, стороны которых выражены

Program zadacha_4;
var
a, b: integer;{длины сторон прямоугольника}
n: integer;{наименьшее число квадратов}
k: integer;{число одинаковых квадратов}
х: integer;
begin
n:=0;
writeln(‘введите длины сторон прямоугольника’);
readln (a,b);
writeln(‘дан прямоугольник’,a:2,’*’,b:2);
writeln(‘квадраты’);
 repeat
if a<b then begin
 x:=a;
 a:=b;
 b:=x
end;
 k:=a div b;
 a:=a mod b;
 writeln (b,’*’,b,’’,k);
 n:=n+k
 until (a=0);
writeln (‘всего квадратов:’,n);
 readln;
 end.