Составить программу pascal abc светофор (

program svetofor;

uses crt;

var c: 1..3;

begin clrscr;

randomize;

writeln('переход по сигналу светофора');

c: =random (3)+1;

gotoxy(35,11);

case c of

1: begin textcolor (red); writeln ('красный-стой! '); end;

2: begin textcolor (yellow); writeln('желтый-приготовься! '); end;

3: begin textcolor (green); writeln('зеленый-иди! '); end;

end;

sleep(3000);

until keypressed;

end.

ответ:

1. антропогенное воздействие на литосферу

2. основные загрязнители и деградация почвы

3. эрозия почвы и борьба с ней

4. проблема опустынивания

5. пестициды и последствия их применения

объяснение:

uses graphabc,crt; var i: integer; h: real; beginrandomize; rectangle(280,130,320,320); rectangle(250,10,350,260); circle(300,55,35); circle(300,135,35); circle(300,215,35); for i: =1 to 1000 dobeginfloodfill(300,55,clred); delay(3000); floodfill(300,55,clwhite); delay(1000); floodfill(300,135,clyellow); delay(3000); floodfill(300,135,clwhite); delay(1000); floodfill(300,215,clgreen); delay(1000); floodfill(300,215,clwhite); delay(1000); end; end.