Program Kvadrati;
uses wincrt;
 var A,B,N,K,X,Code:integer;
    As,Bs:string; 
Begin
 Writeln ('Определить общее (наименьшее) количество,');
 Writeln ('размеры, а также указать количество одинаковых квадратов,');
 Writeln ('на которые можно разрезать прямоугольник со сторонами');
 Writeln ('А и В, выраженными натуральными числами.');
 Writeln ('Стороны квадратов также выражаются натуральными числами.');
 Writeln ('-----------------------------------------------------');
 Write ('Введите размер стороны А=');
  repeat
        Readln (As);
        val(As,A,code);
        if not(code=0) then
         writeln ('Сторона А должна выражаться целым числом. Повторите ввод.');
       until (code=0);
 Write ('Введите размер стороны B=');
  repeat
        Readln (Bs);
        val(Bs,B,code);
        if not(code=0) then
         writeln ('Сторона B должна выражаться целым числом. Повторите ввод.');
       until (code=0);
 writeln ('Квадраты');
 N:=0;
 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);

End.