program taisnst;
uses crt,graph;
var
yo:boolean;
k,a,b,n,m,x,sk,d,w:integer;
label
back;
begin
clrscr;
write('Ievadi pirmaas malas garumu: ');
readln(n);
write('Ievadi otraas malas garumu: ');
readln(m);
initgraph(d,w,'c:\winnt\profiles\d5\desktop');
if n*m<>0 then begin
k:=(GetMaxX-200) div m;
if (GetMaxY-200) div n<(GetMaxX-200) div m then k:=(GetMaxy-200) div n;
end;
rectangle(100,100,100+k*m,100+k*n);
a:=100;
b:=100;
sk:=1;
back:
if n*m=0 then writeln('Kvadratu skaits ir 0!') else
if n=m then writeln('Kvadraatu skaits ir ',sk,'!') else
begin
if m>n then begin m:=m-n; a:=a+n*k; end else begin n:=n-m; b:=b+m*k; end;
rectangle(a,b,a+k*m,b+k*n);
inc(sk);
goto back;
end;
readln;


closegraph;
end.