Pascal programele

Parasykite programa, kuri ivedus gimimo metus, nustatytu ir parasytu kokio zodiako zenklo metais gimes zmogus, jei pirmojo zodiako zenklo ziurke artimiausi metai 2008, o zodiaku zenklu tvarka yra tokia: ziurke, jautis, tigras, kiskis, drakonas, gyvate, arklys, ozka, bezdzione, gaidys, suo, kiaule.

Parasykite programa, kuri ivedus gimimo metus, nustatytu ir parasytu kokio zodiako zenklo metais gimes zmogus, jei pirmojo zodiako zenklo ziurke artimiausi metai 2008, o zodiaku zenklu tvarka yra tokia: ziurke, jautis, tigras, kiskis, drakonas, gyvate, arklys, ozka, bezdzione, gaidys, suo, kiaule.

uz labas papildymą parašyčiau ;)

program KinuMetuZenklai;
var metai:integer;
   Nr:integer;
begin
write('Iveskite gimimo metus: '); readln(metai);
Nr := (metai + 4) mod 12 + 1;
write('Pagal kinu zodiako kalendoriu, jus esate: ');
case Nr of
   1:writeln('Drakonas');
   2:writeln('Gyvate');
   3:writeln('Arklys');
   4:writeln('Ozka');
   5:writeln('Bezdzione');
   6:writeln('Gaidys');
   7:writeln('Suo');
   8:writeln('Kiaule');
   9:writeln('Ziurke');
   10:writeln('Jautis');
   11:writeln('Tigras');
   12:writeln('Kiskis');
   end;
readln;
end.