6 lines
106 B
Text
6 lines
106 B
Text
link numbers
|
|
|
|
procedure main()
|
|
every R := "MCMXC"|"MDCLXVI"|"MMVIII" do
|
|
write(R, " = ",unroman(R))
|
|
end
|