Составить программу в Pascal ABC ( GraphABC). Буду очень признателен. Вот основа программы, нужно нарисовать рисунок. uses GraphABC;
const s='Этот рисунок создан с помощью Паскаль АВС';
begin
Window.Clear(clAquamarine);
Font.Name:='Colibry';
Font.Size:=14;
Font.Style:=fsItalic;
Brush.Color:=clWhite;
rectangle(Window.Width div 2-TextWidth(s) div 2,Window.Height-TextHeight(s),
Window.Width div 2+TextWidth(s) div 2,Window.Height);
textout(Window.Width div 2-TextWidth(s) div 2,Window.Height-TextHeight(s),s);
end.
const s='Этот рисунок создан с помощью Паскаль АВС';
begin
Window.Clear(clAquamarine);
Font.Name:='Colibry';
Font.Size:=14;
Font.Style:=fsItalic;
Brush.Color:=clWhite;
rectangle(Window.Width div 2-TextWidth(s) div 2,Window.Height-TextHeight(s),
Window.Width div 2+TextWidth(s) div 2,Window.Height);
textout(Window.Width div 2-TextWidth(s) div 2,Window.Height-TextHeight(s),s);
end.