Лабы / Pascal.1.курс / part 1 / вариант 22 / lab4ex2

program rety;
uses crt;
var k:char;

procedure showhelp;
begin
textbackground(cyan);
clrscr;
window(4,3,32,22);
textbackground(green);
clrscr;
textcolor(white);
gotoxy(6,2);
writeln('‚ўҐ¤ЁвҐ ­®¬Ґp жЁдал');
gotoxy(9,4);
writeln('1-I');
gotoxy(9,5);
writeln('2-II');
gotoxy(9,6);
writeln('3-III');
gotoxy(9,7);
writeln('4-IV');
gotoxy(9,8);
writeln('5-V');
gotoxy(9,9);
writeln('6-VI');
gotoxy(9,10);
writeln('7-VII');
gotoxy(9,11);
writeln('8-VIII');
gotoxy(9,12);
writeln('9-IX');
gotoxy(9,14);
end;


{ START HERE! }
begin
showhelp;
write('Enter number: ');
readln(k);
writeln; write('Rimskaya: ');
case k of
'1': Writeln('I');
'2': Writeln('II');
'3': Writeln('III');
'4': Writeln('IV');
'5': Writeln('V');
'6': Writeln('VI');
'7': Writeln('VII');
'8': Writeln('VIII');
'9': Writeln('IX');
end;
writeln('Press <Enter>...');
readln;
end.