You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
251 B
Plaintext
17 lines
251 B
Plaintext
6 years ago
|
program casetest;
|
||
|
|
|
||
|
|
var
|
||
|
|
input: integer;
|
||
|
|
|
||
|
|
begin
|
||
|
|
ReadLn(input);
|
||
|
|
case (input) of
|
||
|
|
0..49 : WriteLn('kleiner 49');
|
||
|
|
50..52 : WriteLn('50 - 52');
|
||
|
|
else
|
||
|
|
if (input < 0) then
|
||
|
|
Writeln('kleiner 49')
|
||
|
|
else
|
||
|
|
WriteLn('groesser 52');
|
||
|
|
end;
|
||
|
|
end.
|