11 lines
283 B
ObjectPascal
11 lines
283 B
ObjectPascal
program case_;
|
|
var a:integer;
|
|
begin
|
|
WriteLn('Ââåäèòå êîë-âî ñëîíèêîâ îò 1 äî 50');
|
|
ReadLn(a);
|
|
Case a of
|
|
1,21,31,41:WriteLn(a,' ñëîíèê');
|
|
2..4,22..24,32..34,42..44:WriteLn(a,' Ñëîíèêa');
|
|
5..20,25..30,35..40,45..50:WriteLn(a,' Ñëîíèêîâ');
|
|
end;
|
|
end. |