Vă rooooogggg! Urgeeeent!

Răspuns:
Program P18;
var x:integer , c:char ;
begin
writeln('Introdu x')
read(x)
case x of
1:writeln('I');
5:writeln('V');
10:writeln('X');
50:writeln('L');
100:writeln('C');
500:writeln('D');
1000:writeln('M');
end;
readln;
end.