Programozzuk át

program megoldas;

user crt;

var i : integer;

begin

clrscr;

write('Adja meg a hangulat állapotát: ');

readln(hangulat);

case hangulat of

jó:write('Kitűnő, folytasd tovább!');

kellemes:write('Igyál meg egy csésze meleg teát!');

unatkozom:write('Találd fel magad!');

szomorú:write('Egyél csokit!');

összezavarodott:write('Szedd már össze magad!');

else

write('Jobb dolgot is találhattál volna, mint hogy a gép előtt ülsz és ezzel szórakozol!');

end;

readln;

end.