Question

срочно! напишите программу на языке паскаль, чтобы там получался светофор (не мигающий, но цветной)​

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.