Turiu padares sviesaforo vaizda.. Dabar man beliko ivedus tam tikra raide (pvz: r,zg) ijungti tam tikra spalva. Jei norit paziuret kaip atrodo lempa ijungus ir kartu kaip funkciuonuoti galit paziuret cia
 http://www.part.lt/img/a240c7045edf927c6f56472dec635125981.bmp

Bukit zmones padekit krusuos nuo seniausiai dakniso jau
program sviesaforas;
uses crt;
var a, b, c, x, y, z, t: integer;
begin

{------fonas-----}

clrscr;

textbackground (1);

window(6,2,79,76);

clrscr;


clrscr;

textbackground(yellow);
window(30,5,78,14);

clrscr;

textcolor(white);
gotoxy(3,4);
writeln('Kokia sviesaforo spalva turi uzsidegti  ');

gotoxy(3,5);
writeln('jei raudona paspausite raide r, ');


gotoxy(3,6);

writeln('jei geltona g');

gotoxy(3,7);

writeln('jei zalia - z');


gotoxy(3,8);
write('jei norite iseiti is programos paspauskite i');


window(6,5,6,5);
clrscr;

textbackground (lightgray);

window(10,3,25,31);

clrscr;

{------------viduje----------------}

{zali}

textcolor(green);
writeln ('***************');
gotoxy(1,2);


   for x:=5 to 56 do
    begin

        gotoxy(7+15,60);
         x:=x+1;
         delay (10);
         Writeln ('[' , ']':14);

   end;

    textcolor(green);
    writeln ('***************');
    gotoxy(3,10);

     {-----}


    {--------------zibintai------------}


   {virsus}
     gotoxy(7,3);
    textcolor(green);
    writeln ('***');


              {viduris}
for z:=4 to 7 do
    begin

         z:=z;
         
         gotoxy(6,z);
           
         delay (10);
         
         Writeln ('*' , '*':4);

   end;
   
               {apacia}
     gotoxy(7,8);
    textcolor(green);
    writeln ('***');

   
    {--------------antras---------------}

   
   {virsus}
    gotoxy(7,12);
    textcolor(green);
    writeln ('***');


    {viduris}

for z:=13 to 16 do
    begin

         z:=z;

         gotoxy(6,z);

         delay (10);

         Writeln ('*' , '*':4);

   end;

       { apacia }
    gotoxy(7,17);
    textcolor(green);
    writeln ('***');
   
   
    {---------trecia---------}


            {virsus}
    gotoxy(7,21);
    textcolor(green);
    writeln ('***');


    {viduris  }

for z:=22 to 25 do
    begin

         z:=z;

         gotoxy(6,z);

         delay (10);

         Writeln ('*' , '*':4);

   end;

     { apacia }
    gotoxy(7,26);
    textcolor(green);
    writeln ('***');



   {----------kotas--------}

    textbackground(black);
    window(15,32,69,66);
    for y:=10 to 46 do

    begin

         y:=y+1;

         delay (10);

         Writeln ('[' , ']':5);


   end;



    readln;
    readln

 end.

Problema isspresta