uses crt;
var
ch:integer;
begin
writeln('wwedite chislo');
readln(ch);
case ch of
0 : writeln ('nol');
1 : writeln ('odin');
{для остальных}
end;
end.
uses crt;
var
ch:integer;
begin
writeln('wwedite chislo');
readln(ch);
case ch of
0 : writeln ('nol');
1 : writeln ('odin');
{для остальных}
end;
end.