Exemplo Algarismo romanos

Program algarismos_romanos_1_ao_10 ;
const
I='I';
V='V';
X='X';
var
N:integer;
Begin
for N:= 1 to 10 do
begin
write(N,': ');
if N=1 then write(I);
if N=2 then write(I,I);
if N=3 then write(I,I,I);
if N=4 then write(I,V);
if N=5 then write(V);
if N=6 then write(V,I);
if N=7 then write(V,I,I);
if N=8 then write(V,I,I,I);
if N=9 then write(I,X);
if N=10 then write(X);
writeln;
end;
End.