Prevod arabských čísel na rímske

Kategorija: Zadaňa zos Pascalu

Zrobil: Pheo
web: pascalsource.ic.cz

Program: Rimzarabcisel.pas
Subor exe: Rimzarabcisel.exe

{ 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.