Программа для выполнения простейших арифметических расчетов - Turbo Pascal

Формулировка задачи:

Здравствуйте! У меня имеется вот такое задание: Написать программу для выполнения простейших арифметических расчетов( калькулятор) Технические требования: Размер калькулятора. Его расположение относительно начала координат, размер кнопок цветовая гамма определяется в файле Input.txt. Управление калькулятором осуществляется с помощью клавиатуры. Предусмотреть запись рассчитанного значения в файл Output.txt. У меня есть текст программы где создан простейший калькулятор с текстовым меню. Друзья, прошу у Вас помощи как у более опытных. Буду очень благодарен за помощь.

                    Листинг программы
                
 
                        
                          
                    
program calculator;
uses crt;
label 10,11;
var chislo1,chislo2:integer;
 sim1,sim2,sim3,simv4,sim : char;
 otv:real;
begin
clrscr;
write('Введите первое число --> ');
readln(chislo1);
write('Введите второе число --> ');
readln(chislo2);
 writeln(' MENU');
 writeln('----------------');
 writeln( ' + Сложение');
 writeln( ' - Вычитание');
 writeln( ' * Умножение');
 writeln( ' / Деление');
 writeln('----------------');
 write('Действие -->');
10: gotoxy(15,10);
readln(sim);
if (sim='+') or (sim='-') or (sim='*') or(sim='/')
 then goto 11
 else begin writeln('Неверно введен знак'); goto 10; end;
11: case sim of
 '+': begin otv:= chislo1 + chislo2; end;
 '-': begin otv:= chislo1 - chislo2; end;
 '*': begin otv:= chislo1 * chislo2; end;
 '/': begin otv:= chislo1 / chislo2; end;
end;
writeln;
 writeln(chislo1,' ',sim,' ',chislo2,' = ',otv);
 readln;
end.

Решение задачи: «Программа для выполнения простейших арифметических расчетов»

textual
                            Листинг программы 
                        
 
                            
                        
uses graph, crt;
var d,m,k,size: integer;
s: string;
begin
 InitGraph(d,m,'C:\FPC\BGI');
 size:=1;
 k:=1;
If graphResult=0 then
begin
rectangle(25,80,300,540);
settextstyle(k,0,size); str(size,s);
outtextxy(55,215,'7');
outtextxy(55,285,'4');
outtextxy(55,355,'1');
outtextxy(55,425,'/');
outtextxy(125,215,'8');
outtextxy(125,285,'5');
outtextxy(125,355,'2');
outtextxy(125,425,'0');
outtextxy(195,215,'9');
outtextxy(195,285,'6');
outtextxy(195,355,'3');
outtextxy(195,425,'.');
outtextxy(265,215,'C');
outtextxy(265,285,'X');
outtextxy(265,355,'-');
outtextxy(265,425,'+');
outtextxy(160,495,'=');
 
 
rectangle(35,95,290,150);
rectangle(35,250,80,200);
rectangle(105,250,150,200);
rectangle(175,250,220,200);
rectangle(245,250,290,200);
rectangle(35,320,80,270);
rectangle(105,320,150,270);
rectangle(175,320,220,270);
rectangle(245,320,290,270);
rectangle(35,390,80,340);
rectangle(105,390,150,340);
rectangle(175,390,220,340);
rectangle(245,390,290,340);
rectangle(35,460,80,410);
rectangle(105,460,150,410);
rectangle(175,460,220,410);
rectangle(245,460,290,410);
rectangle(35,530,290,480);
readln;
closegraph;
end
else writeln('Произошла ошибка при инициализации графики');
end.