Question

Написать программу, которая рисует 3 квадрата (pascal abc. Помогите пожалуйста решить задачу

Answer 1

Ответ: uses graph;

var x,y,d,i:integer;

begin

initgraph(x,y,'');

x:=getmaxX div 2;

y:=getmaxY div 2;

d:=25;

for i:=1 to 3 do

begin

 setcolor(8+i);

 rectangle(x-(5-i)*d,y-(5-i)*d,x+(i-1)*d,y+(i-1)*d);

end;

setcolor(12);

setfillstyle(1,12);

bar(x-2*d,y-2*d,x,y);

readln

Объяснение: Надеюсь что так