Pagalba su pascal užduotimi

Sveiki visi, kadangi aš šitame puslapyje esu naujokas, todėl prašau jūsų pagelbėti išspresti šią užduoti(Tik šiais metais pradėjau mokytis programuoti su pascal kalba).

Užduotis:

"Šviesoforas veikia pagal tokį algoritmą: kiekvienos valandos pradžioje tris minutes dega žalia šviesa,

po to dvi minutes – raudona, po to vėl tris minutes žalia ir t.t. Žinoma, kiek minučių t (t – sveikasis

skaičius) praėjo nuo valandos pradžios. Parašykite programą, kuri nustatytų, kokia šviesoforo spalva

dega. Pasitikrinkite: kai t = 12, tuomet spausdinama: Dega žalia šviesa. Kai t = 13, tuomet

spausdinama: Dega žalia šviesa, tuoj degs raudona. Kai t = 5, tuomet spausdinama: Dega raudona

šviesa, tuoj degs žalia."

kol kas esu padaręs tokį kodą kuris nustato kokia yra spalva bet niekaip nesugalvoju kaip padaryti kad rasytu"Dega raudona sviesa, tuoj degs zalia". Man būtu idomi jūsų nuomone kaip jūs darytumėte šia užduoti.

program sviesoforas;
var t      : integer; // laikas nuo valandos pradzios
   i      : integer; // reikalingas for ciklui sukti
   s      : integer; // palyginimo laikas su gautu laiku
   spalva : integer; // sviesoforo spalva
begin
 WriteLn('Iveskite laika nuo valandos pradzios'); ReadLn(t);

   while s<t do    //tikrinma ar palyginimo laikas mazesnis už pradini laika
    begin

      if s<t then
       begin
       for i:=1 to 3 do
       s:= s+1; spalva:=1;
       end;
        i:=0;

      if s<t then
       begin
       for i:=1 to 2 do
       s:=s+1; spalva:=2;
       end;
       i:=0;
    end;

 if spalva = 1 then WriteLn('Dega zalia sviesa');
 if spalva = 2 then WriteLn('Dega raudona sviesa');
 ReadLn;
end.

Program Sviesoforas;

Var t : integer;

begin
   Write('Įveskite minutes: ');
   ReadLn(t);
   if t = 12 then
   begin
       WriteLn('Dega žalia šviesa.');
   end

   else if t = 13 then
   begin
       WriteLn('Dega raudona šviesa, tuoj užsidegs žalia.');
   end
end. 

arba

program Sviesoforas2;

 var t : integer; // Laikas minutėmis, praėjęs nuo valandos pradžios

begin

 Write ('Įveskite laiką, praėjusį nuo valandos pradžios: '); ReadLn (t);

 if t mod 5 = 0

    then WriteLn ('Dega raudona šviesa, tuoj užsidegs žalia.')

    else if t mod 5 = 3

            then WriteLn ('Dega žalia šviesa, tuoj užsidegs raudona.')

            else if t mod 5 < 3

                      then WriteLn ('Dega žalia šviesa.')

                      else WriteLn ('Dega raudona šviesa.');

 ReadLn;

end.

arba

program Sviesoforas3;
   var t : integer;
begin
 WriteLn('Įveskita laiką minutėmis: ');    ReadLn(t);
 t := t mod 10;
 if (1 <= t) and (t <= 3) or (6 <= t) and (t <= 8)
   then if (t = 3) or (t = 8)
           then WriteLn('Dega žalia, tuoj užsidegs raudona')
           else WriteLn('Dega žalia')
   else if (t = 5) or (t = 0)
           then WriteLn('Dega raudona, tuoj užsidegs žalia')
           else WriteLn('Dega raudona');

 Readln;
end.

Dėkui

Dėkui

Jei čia mokykloje pradėjai mokytis Pascal, tai paklausk, ar nenori pereiti prie C++, nes jei ateityje studijuosi universitete programavimą, gali susidurti su didesniais sunkumais.

Tik kitais metais pradesiu mokytis c++ nes pagal mokyklos kursa tai 11 klasej pradedi mokytis c++ pagrindus, kadangi man patinka mokytis savarankiskai programuoti tai jau programuoju su c++ kalba mikrovaldiklius apie 2 metus, kazkaip prie naujos kalbos sunkoka priprasti, prie jos sintaksės.