Графика в Турбо Паскаль - Turbo Pascal - Ответ 969483

uses crt,graph;
var ch:char;pox,poy,k,i,j,pogor,povert,c,x1,y1,x2,y2,x,y,GraphDriver,GraphMode,a,m,n:integer;pod:real;
procedure kvadrat(x1,y1,x2,y2:word);
begin
bar(x1,y1,x2,y2); end;
begin
writeln('vvedite zadannoe m na n'); readln(m,n);
writeln('vvedite vvelichinu kvadrata');readln(a);
GraphDriver:=detect;
InitGraph(GraphDriver,GraphMode,'');
pod:=m/(m+n);
pogor:=trunc(640/a);
povert:=trunc(480/a);
c:=1;
pox:=trunc((640-pogor*a)/2);
poy:=trunc((480-povert*a)/2);
for i:=1 to pogor do
for j:=1 to povert do begin
x1:=pox+a*i-a;
y1:=poy+a*j-a;
x2:=pox+a*i;
y2:=poy+a*j;
while (x2-x1)>3 do begin
setfillstyle(1,c);
if (c>0) and (c<=14) then c:=c+1 else
c:=1;
kvadrat(x1,y1,x2,y2);
x2:=trunc(x2-((x2-x1) *(1-pod)));
y2:=trunc(y2-((y2-y1)*(1-pod)));end;
end;
repeat
  if keypressed then
  begin ch:=readkey;
        break
        end;
        until false;
end.