program calc;
uses crt;
procedure command_string;
begin
CLrScr;
TextColor(3);
gotoxy(7,1);
Writeln('浜様様様様様様様様様様様様様様� ');
gotoxy(7,2);
writeln('�         ���讓祀閧��         � ');
gotoxy(7,3);
writeln('藩様様様様様様様様様様様様様様� ');
gotoxy(7,4);
writeln('�                             � ');
gotoxy(7,5);
writeln('藩様様様様様様様様様様様様様様� ');
end;
procedure buttoms(srav:integer);
procedure buttom(col,x1,y1,x2,y2,x3,y3,n1,n2:byte;name:string);
begin
TextColor(col);
gotoxy(x1,y1);
writeln('浜様�');
gotoxy(x2,y2);
writeln('�   �');
gotoxy(x3,y3);
writeln('藩様�');
gotoxy(n1,n2);
write(name);
end;
procedure Especial_buttom(col,x1,y1,x2,y2,x3,y3,n1,n2:byte;name:string);
begin
TextColor(col);
gotoxy(x1,y1);
writeln('浜様様様様様様様�');
gotoxy(x2,y2);
writeln('�               �');
gotoxy(x3,y3);
writeln('藩様様様様様様様�');
gotoxy(n1,n2);
write(name);
end;
begin
{�ム�覃 痰��．�}
if srav=1 then buttom(5,7,6,7,7,7,8,9,7,'+')
          else buttom(1,7,6,7,7,7,8,9,7,'+');
if srav=2 then buttom(5,7,9,7,10,7,11,9,10,'-')
          else buttom(1,7,9,7,10,7,11,9,10,'-');
if srav=3 then buttom(5,7,12,7,13,7,14,9,13,'*')
          else buttom(1,7,12,7,13,7,14,9,13,'*');
if srav=4 then buttom(5,7,15,7,16,7,17,9,16,'/')
          else buttom(1,7,15,7,16,7,17,9,16,'/');
{�皰牀� 痰��．�}
if srav=5  then buttom(5,13,6,13,7,13,8,15,7,'1')
           else buttom(1,13,6,13,7,13,8,15,7,'1');
if srav=6  then buttom(5,13,9,13,10,13,11,15,10,'5')
           else buttom(1,13,9,13,10,13,11,15,10,'5');
if srav=7  then buttom(5,13,12,13,13,13,14,15,13,'9')
           else buttom(1,13,12,13,13,13,14,15,13,'9');
if srav=8  then buttom(5,13,15,13,16,13,17,15,16,'^')
           else buttom(1,13,15,13,16,13,17,15,16,'^');
{�爛皋� 痰��．�}
if srav=9  then buttom(5,19,6,19,7,19,8,21,7,'2')
           else buttom(1,19,6,19,7,19,8,21,7,'2');
if srav=10 then buttom(5,19,9,19,10,19,11,21,10,'6')
           else buttom(1,19,9,19,10,19,11,21,10,'6');
if srav=11 then buttom(5,19,12,19,13,19,14,21,13,'0')
           else buttom(1,19,12,19,13,19,14,21,13,'0');
{�モ�騾硅� 痰��．�}
if srav=12 then buttom(5,25,6,25,7,25,8,27,7,'3')
           else buttom(1,25,6,25,7,25,8,27,7,'3');
if srav=13 then buttom(5,25,9,25,10,25,11,27,10,'7')
           else buttom(1,25,9,25,10,25,11,27,10,'7');
if srav=14 then buttom(5,25,12,25,13,25,14,27,13,'=')
           else buttom(1,25,12,25,13,25,14,27,13,'=');
{�閧覃 痰��．�}
if srav=15 then buttom(5,31,6,31,7,31,8,33,7,'4')
           else buttom(1,31,6,31,7,31,8,33,7,'4');
if srav=16 then buttom(5,31,9,31,10,31,11,33,10,'8')
           else buttom(1,31,9,31,10,31,11,33,10,'8');
if srav=17 then buttom(5,31,12,31,13,31,14,33,13,'C')
           else buttom(1,31,12,31,13,31,14,33,13,'C');
if srav=18 then Especial_buttom(5,19,15,19,16,19,17,23,16,'Exit')
           else Especial_buttom(1,19,15,19,16,19,17,23,16,'Exit');
end;
procedure plus;
var a,b:integer;
begin
a:=a+b;
end;
procedure minus;
var a,b:integer;
begin
a:=a-b;
end;
procedure multiply;
var a,b:integer;
begin
a:=a*b;
end;
procedure separate;
var a,b:real;
begin
a:=a/b;
end;
var ch:char;
kn,a,i:integer;
label met;
begin
CLrScr;
met:command_string;
kn:=1;
buttoms(kn);
while true do
begin
ch:=#1;
while (ch<>#13) and (ch<>#0) do ch:=readkey;
if ch=#0 then ch:=readkey;
    case ch of
#72: kn:=kn-1;
#80: kn:=kn+1;
#75: kn:=kn-1;
#77: kn:=kn+1;
#13: case kn of
 1: begin plus;gotoxy(22,4);textcolor(red);writeln('+');end;
 2: begin minus;gotoxy(22,4);textcolor(red);writeln('-');end;
 3: begin multiply;gotoxy(22,4);textcolor(red);writeln('*');end;
 4: begin separate;gotoxy(22,4);textcolor(red);writeln('/');end;
 5: begin
    for i:=1 to 28 do
    begin
    a:=1;
    textcolor(green);
    gotoxy(8+i*1,4);
    writeln(a);
    readln;
    end;
    end;


 18: exit;
end;
end;
if kn=0 then kn:=18;
if kn=19 then kn:=1;

buttoms(kn);
end;
end.