Помогите пож! Используя оператор case, напишите…

var a: integer; s: string; Begin read (a); case a of 1: s: ="I"; 5: s: ="V"; 10: s: ="X"; 50: s: ="C"; 100: s: ="C"; 500: s: ="I"; 1000: s: ="M; end; writeln (s); End. Римские соответствия не все помню