Var n: byte; begin
write (1 - den 7-gedeyingisandiengiz);
read(n); -
case n of
1: Writeln('Duysenbi');
2: Writeln("Seysenbi');
3: Writeln("Saisenbi');
4: Writeln('Beysen bi');
5: Writeln('Juma');
6: Writeln('Sen bi?);
7: Writeln(Jekseni');
else writeln("Durisemes');
end.​

Kirill12345qwert    3   12.03.2021 07:17    1