Umístnení souboru www.TrSek.com/zadania/rimzarabcisel.pas

{ RIMZARABCISEL.PAS                              Copyright (c) Pheo }
{ Prevod arabských èísel na rímske.                                 }
{                                                                   }
{ Datum:08.02.1993                             http://www.trsek.com }

program rimzarabcisel;
var a :integer;
begin
  writeln('Prevod arabskych cisel na rimske.');
  writeln('Zadaj cislo');
  read(a);

  while a>=1000 do
  begin
     a:=a-1000;
     write('M')
  end;

  if a>=500 then
  begin
     a:=a-500;
     write('D')
  end;

  while a>=100 do
  begin
     a:=a-100;
     write('C')
  end;

  if a>=50 then
  begin
     a:=a-50;
     write('L')
  end;

  while a>=10 do
  begin
     a:=a-10;
     write('X')
  end;

  if a>=5 then
  begin
     a:=a-5;
     write('V');
  end;

  while a>=1 do
  begin
     a:=a-1;
     write('I');
  end;

  writeln; readln;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com