Program w Pascalu pt. Rada dnia

Program PC;
uses crt;
var i,j,k,l,m,n:longint;


procedure wyr1;
begin
i:=random(24)+1;
if i=1 then write('Cykaj');
if i=2 then write('Wal');
if i=3 then write('Ruchaj');
if i=4 then write('Pukaj');
if i=5 then write('Macaj');
if i=6 then write('Ssaj');
if i=7 then write('ap');
if i=8 then write('Pierdol');
if i=9 then write('Siorbaj');
if i=10 then write('Dmuchaj');
if i=11 then write('Uderzaj');
if i=12 then write('Podrzucaj');
if i=13 then write('Grzmo†');
if i=14 then write('Bij');
if i=15 then write('Gry«');
if i=16 then write('Wsadzaj');
if i=17 then write('NaciĄgaj');
if i=18 then write('Zdzieraj');
if i=19 then write('Li');
if i=20 then write('Puszczaj');
if i=21 then write('Zrzucaj');
if i=22 then write('Pierdnij w');
if i=23 then write('Pierdnij w');
if i=24 then write('Pierdnij w');
if i=25 then write('Nasraj w');
if i=26 then write('Podlej');

Write(' ');

End;

Procedure wyr2;
begin
j:=random(24)+1;
if j=1 then write('smoka');
if j=2 then write('wieloryba');
if j=3 then write('banana');
if j=4 then write('arbuza');
if j=5 then write('kondoma');
if j=6 then write('fiuta');
if j=7 then write('makaron');
if j=8 then write('telefon');
if j=9 then write('telewizor');
if j=10 then write('kota');
if j=11 then write('szympansa');
if j=12 then write('TIR-a');
if j=13 then write('ruskiego');
if j=14 then write('kotleta');
if j=15 then write('eklerka');
if j=16 then write('torta');
if j=17 then write('psa');
if j=18 then write('nosa');
if j=19 then write('r©kaw');
if j=20 then write('palca');
if j=21 then write('sonia');
if j=22 then write('talerz');
if j=23 then write('rowa');
if j=24 then write('odbyt');
if j=25 then write('kaczora');
write(' ');
end;

procedure wyr3;
begin
k:=random(4)+1;
if k=1 then write('dopki ');
if k=2 then write('a ci ');
if k=3 then write('a jego chuj sprawi, e ');
if k=4 then write('a mu ');
if k=5 then write('a mu ');
end;

procedure wyr4;
begin
l:=random(19)+1;
if l=1 then write('rogi');
if l=2 then write('wosy');
if l=3 then write('uszy');
if l=4 then write('dziurki w nosie');
if l=5 then write('nogi');
if l=6 then write('poladki');
if l=7 then write('drzwiczki');
if l=8 then write('puca');
if l=9 then write('usta');
if l=10 then write('spodnie');
if l=11 then write('majtki');
if l=12 then write('slipy');
if l=13 then write('goniki');
if l=14 then write('skry');
if l=15 then write('radary');
if l=16 then write('ciany');
if l=17 then write('kredki');
if l=18 then write('r©kawy');
if l=19 then write('nogawki');
if l=20 then write('okna');
write(' ');
end;

procedure wyr5;
begin
m:=random(19)+1;
if m=1 then write('spadnĄ');
if m=2 then write('stanĄ');
if m=3 then write('zesztywniejĄ');
if m=4 then write('opadnĄ');
if m=5 then write('si© oderwĄ');
if m=6 then write('si© spalĄ');
if m=7 then write('p©knĄ');
if m=8 then write('ucieknĄ');
if m=9 then write('si© zatrzasnĄ');
if m=10 then write('wypadnĄ');
if m=11 then write('wylazĄ');
if m=12 then write('si© zmoczĄ');
if m=13 then write('si© oderwĄ');
if m=14 then write('si© podniosĄ');
if m=15 then write('si© zegnĄ');
if m=16 then write('si© odegnĄ');
if m=17 then write('si© zetrĄ');
if m=18 then write('si© osmalĄ');
if m=19 then write('ztwardniejĄ');
if m=20 then write('si© stukĄ');
write(' ');
end;



begin
randomize;
Clrscr;
writeln;writeln;writeln;writeln;writeln;writeln;
Writeln('Rada na dzie dzisiejszy brzmi:');
gotoxy(100,100);
wyr1;delay(10);
wyr2;delay(10);
wyr3;delay(10);
wyr4;delay(10);
wyr5;delay(10);
readln;
end.