Лабы / 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.