Program dzień;
var a:integer;
begin
writeln (‘podaj liczbę’);
readln (a);
case a of
1: writeln (‘poniedziałek’);
2: writeln (‘wtorek’);
3: writeln (‘środa’);
4: writeln (‘czwartek’);
5: writeln (‘piątek’);
6: writeln (‘sobota’);
7: writeln (‘niedziela’);
else
writeln (‘podałeś złą liczbę’);
end;
readln;
end.
powinno byc dobrze...................
