Pascal programozás feladat? /feladat lent. /

program vicc;

uses crt;

var

c: char;

vicc1,vicc2,vicc3:string;

begin

clrscr;

vicc1:='Mi a női programozó rémálma? A végtelen ciklus.';

vicc2:='Anya és fia a benzinkúton: Fiam tankolsz? De anya, én healer vagyok.';

vicc3:='Mi a különbség a lószar és a windows 98 között? A lószarból még ki lehet lépni.';

writeln('Melyik viccet akarod?(A,B vagy C)');

readln(c);

if (c='a') or (c='A')

then

begin

writeln(vicc1);

else

if (c='b') or (c='B')

then

writeln(vicc2);

else

writeln(vicc3);

end;

end.

Kb. így. Lehet hibás mert rég nyúltam pascalhoz de szerintem okés.

a case /valami/ of -al kell:

pl.

write('blablabla'); //itt kéred be a vicc betűjét.

betu:=readkey; //itt a betu változóba elmented a leütött betüt

case betu of

'a':write('vicc1');

'b':write('vicc2');

'c':write('vicc3');

else write('rossz betüt ütöttél be');

end;