Witam, mam problem z jednym z pierwszych programów :
Program konkurs;
uses crt;
var lit: Char;
begin
clrscr;
Writeln('Witam w moim konkursie!');
Writeln('Zaczynajmy!');
Writeln('Pytanie nr 1: Co daje krowa?');
Read(lit);
If lit = 'mleko' then
writeln('Brawo! otrzymujesz punkt!')
Else
writeln ('zla odpowiedz');
writeln
end.
otóż gdy wpisuje mleko ;p i klikam enter to program się wyłącza i nie wypisuje czy dobra czy zła odp co mam zrobic zeby działał poprawnie?
Program: Free Pascal