Напишите программу для того, чтобы нарисовать светофор, а сверху надпись "КРАСНЫЙ...

Question

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

Answer 1

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
uses GraphABC;
begin
  SetFontColor(clRed);
  SetFontSize(16);
  TextOut(50,50,'Красный свет - дороги нет!');
  Pen.Width:=3;
  DrawRectangle(140,100,240,300);
  Pen.Width:=1;
  Brush.Color:=clRed;
  Circle(190,150,20);
  Brush.Color:=clYellow;
  Circle(190,200,20);
  Brush.Color:=clLightGreen;
  Circle(190,250,20);
end.

---