program prev_arab_rim; uses crt; var a : integer; b : string; function rimsky(num:integer):string; var dif : integer; tmp : string; function sestav(tmp1,tmp2:integer; sym:string):string; var cnt: integer; poc: integer; ps : string; begin ps:=''; dif:= tmp1 mod tmp2; poc:=tmp1 div tmp2; for cnt:= 1 to poc do ps:=ps+sym; sestav:=ps; end; begin tmp:=sestav(num,1000,'M'); tmp:=tmp+sestav(dif,900,'CM'); tmp:=tmp+sestav(dif,500,'D'); tmp:=tmp+sestav(dif,400,'CD'); tmp:=tmp+sestav(dif,100,'C'); tmp:=tmp+sestav(dif,90,'XC'); tmp:=tmp+sestav(dif,50,'L'); tmp:=tmp+sestav(dif,40,'XL'); tmp:=tmp+sestav(dif,10,'X'); tmp:=tmp+sestav(dif,9,'IX'); tmp:=tmp+sestav(dif,5,'V'); tmp:=tmp+sestav(dif,4,'IV'); tmp:=tmp+sestav(dif,1,'I'); rimsky:=tmp; end; begin clrscr; readln(a); b:=rimsky(a); writeln(b); readln; end.