Program Liczby_rzymskie;
var
x: integer ;
begin
writeln(' Ten program zamieni Ci liczbe arabska na rzymska od 1 do 10 ');
repeat
writeln(' Podaj liczbę od 1 do 10 ');
readln(x);
if( x = 1) then writeln (' I ');
if( x = 2) then writeln (' II');
if( x = 3) then writeln (' III ');
if( x = 4) then writeln (' IV ');
if( x = 5) then writeln (' V ');
if( x = 6) then writeln (' VI ');
if( x = 7) then writeln (' VII ');
if( x = 8) then writeln (' VIII ');
if( x = 9) then writeln (' IX ');
if( x = 10) then writeln (' X ');
if(x>10) or (x<1) then writeln (' Podałeś nieprawidłową liczbę. Spróbuj jeszcze raz');
until(x=40);
readln;
end.
Proszee :)) do 10 co nie ?? >D
