program Oceny; uses crt; var ocena : integer; begin ClrScr; writeln('Wpisz ocene'); readln(ocena); case ocena of 1: writeln('Ocena niedostateczna'); 2: writeln('Ocena dopuszczajaca'); 3: writeln('Ocena dostateczna'); 4: writeln('Ocena dobra'); 5: writeln('Ocena bardzo dobra'); 6: writeln('Ocena celujaca') else writeln('Nie ma tekiej oceny'); writeln('Program skonczony'); end; repeat until keypressed; end.
Raphael6320