Определить количество ковриков, которые покроют весь пол - Free Pascal

var s:string;
    a,b,a1,b1:longint;
    k:integer;
begin
repeat
writeln('введите длину');
readln(s);
val(s,a,k);
if (k<>0)or(a<=0) then writeln('Некорректные данные,повторите');
until (k=0)and(a>0);
repeat
writeln('введите ширину');
readln(s);
val(s,b,k);
if (k<>0)or(b<=0) then writeln('Некорректные данные,повторите');
until (k=0)and(b>0);
a1:=a;
b1:=b;
writeln('метод незнайки');
k:=1;
while a<>b do
 begin
  if a>b then a:=a-b else b:=b-a;
  k:=k+1;
 end;
writeln('количество ковров=',k);
writeln('метод знайки');
k:=0;
while a1*b1>0 do
 begin
  if a1>b1 then
    begin
     k:=k+a1 div b1;
     a1:=a1 mod b1;
    end
  else
   begin
    k:=k+b1 div a1;
    b1:=b1 mod a1
   end;
 end;
writeln('количество ковров=',k);
readln;
end.