Program Number1;
Var
x, k: integer;
Begin
writeln(‘Введите x‘);
readln(x);
if (x<0) or (x>9)
then
writeln (‘Это число не является цифрой‘)
else
case x of
1,2,3,4 : k:=3;
else:
if (x<=0)
then
k:=2;
else
k:=0;
end;
readln;
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.