Алгоритмы разветвляющейся структуры: Соответствующая римская цифра по введенному числу

var
   k: integer;
begin
     write('K = ');
     readln(k);
     case k of
          1: writeln('I');
          2: writeln('II');
          3: writeln('III');
          4: writeln('IV');
          5: writeln('V');
          6: writeln('VI');
          7: writeln('VII');
          8: writeln('VIII');
          9: writeln('IX');
         10: writeln('X')
         else writeln('×èñëî áîëüøå 10!');
     end;
end.

var x:integer;
    s:string;
begin
write('Введи число: ');
readln(x);
case x of
1:s:='I';
2:s:='II';
3:s:='III';
4:s:='IV';
5:s:='V';
6:s:='VI';
7:s:='VII';
8:s:='VIII';
9:s:='IX';
10:s:='X'
else s:='Не найдена';
end;
writeln('Для числа ',x,' Римская цифра: ',s);
 
end.

var x:integer;
    s:string;
begin
write('Введи число: ');
readln(x);
if x=1 then s:='I'
  else if x=2 then s:='II'
    else if x=3 then s:='III'
      else if x=4 then s:='IV'
        else if x=5 then s:='V'
          else if x=6 then s:='VI'
            else if x=7 then s:='VII'
              else if x=8 then s:='VIII'
                else if x=9 then s:='IX'
                  else if x=10 then s:='X'
                    else s:='Не найдена';
 
writeln('Для числа ',x,' Римская цифра: ',s);
 
end.