Uses GraphABC;
begin
Pen.Color := clblue;
brush.Color :=clRed;
DrawRectangle(100,200,400,400);
fillRect(100,200,400,400);
moveto(90,200);
lineto(100,150);
lineto(400,150);
lineto(410,200);
lineto(90,200);
FloodFill(100,180,clblue);
brush.Color := clCyan;
fillRect(150,250,200,300);
fillRect(250,250,300,300);
<span>end.</span>
Какой код цвета напишешь, такой и будет. Если так иксы и оставишь, то белый (который по умолчанию), потому что такое значение будет ошибочным.
Первый 1111111
второй 92
третий 10766
четвертый 1470
Var
x:integer;
begin
for x:=-5 to 5 do Writeln(x:2,x*x+5:4)
end.
<u>Результат</u>
-5 30
-4 21
-3 14
-2 9
-1 6
0 5
1 6
2 9
3 14
4 21
5 30