Написать программу: Пусть дан прямоугольник, длины сторон которого а и 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(квадраты);
nbsp;repeat
if alt;b then begin
nbsp;x:=a;
nbsp;a:=b;
nbsp;b:=x
end;
nbsp;k:=a div b;
nbsp;a:=a mod b;
nbsp;writeln (b,*,b,,k);
nbsp;n:=n+k
nbsp;until (a=0);
writeln (всего квадратов:,n);
nbsp;readln;
nbsp;end.