Какое значение примет к после выполения алгоритма х: =0: k: =5 выбор при x< 5: k: =3 при x< =0: k: =2 иначе k: =0 все напишите программу.мы сейчас проходим оператор case!

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.

var
  x, k: integer;
begin
  x := 0;
  k := 5;
  case x of
    1..4: k := 3;
    0: k := 2;
  else k := 0;
  end;
writeln('k = ', k);
end.