Question

Помогите,нужно сделать программу для ноутбука и на ноутбуке должна быть надпись ,,Информатика" но у меня не получилось(ноутбук должен быть объемным)

Answer 1

Строку Textout(150,158,'Информатика'); перенеси на предпоследнюю позицию и будет тебе счастье.

program ff;
uses GraphABC;

begin
SetWindowSize(600,600);
Rectangle(120,120,320,220);
Rectangle(110,110,330,230);
Rectangle(110,110,330,220);
Circle(116,230,5);
FloodFill(116,230,clRed);
Line(330,230,280,360);
Line(110,230,40,360);
Line(40,360,280,360);
Line(360,360,100,320);
Textout(150,158,'Информатика');
end.