Пусть дан прямоугольник, длины сторон которого а и b — натуральные числа. На сколько квадратов, стороны которых выражены натуральными числами, можно разрезать данный прямоугольник, если от него каждый раз отрезать квадрат максимально возможной площади — Pascal(Паскаль)

uses crt;
var a,b,i,temp:byte;
begin
a:=15;
b:=2;
if a<b then
 begin
  temp:=a;
  a:=b;
  b:=temp;
 end;
i:=1;
while a<>b do
 begin
   i:=i+1;
   a:=a-b;
   if a<b then
    begin
      temp:=a;
      a:=b;
      b:=temp;
    end;
 end;
writeln(i);
readln;
end.

var
a,b,sum,temp:integer;
begin
writeln('vvedite storony');
readln(a,b);
repeat
if a<b then begin
temp:=a;
a:=b;
b:=temp;
end;
sum:=sum+a div b;
a:=a mod b;
until a=0;
writeln(sum);
end.