Напишите программу для того, чтобы нарисовать светофор, а сверху надпись "КРАСНЫЙ СВЕТ-ДОРОГИ НЕТ!" в ABC Pascal. ДАМ ДВАДЦАТЬ БАЛЛОВ. ПОМОГИТЕ!

Программа для ABC Pascal:

uses GraphABC;

begin
  SetWindowSize(600, 500);
  SetWindowCaption('Светофор');
  SetFontSize(18);
  SetFontColor(clRed);
  TextOut(60, 20, 'КРАСНЫЙ СВЕТ — ДОРОГИ НЕТ!');

  SetBrushColor(clBlack);
  Rectangle(230, 80, 370, 360);

  SetBrushColor(clRed);
  Circle(300, 130, 40);
  SetBrushColor(clYellow);
  Circle(300, 220, 40);
  SetBrushColor(clGreen);
  Circle(300, 310, 40);

  SetPenColor(clBlack);
  SetPenWidth(8);
  Line(300, 360, 300, 450);
end.

0 0 Пожаловаться