Pascal Калькулятор. (Сложение, вычитание, деление, умножение*)

[TemplerShow]

Приветствую всех, уважаемые обитатели форума!)

Шастал на кампуктере и нашел простенький калькулятор, мне он ни к чему, а тут может и пригодится. Для чего - решайте сами
Все довольно просто и понятно.​

Ссылка на скачивание:

Чтобы видеть скрытое содержание Зарегистрируйтесь на форуме!

​

program mycalculator;
uses crt;
var
  A,B,C:real;
  D:char;

begin
  textbackground(0);
  clrscr;
  
  writeln;
  textcolor(2);
  writeln('   Calculator. (Version 0.1)');
  textcolor(2);
  writeln('   Сложение, вычитание, умножение, деление.');
  writeln;
  
  textcolor(2);
  write('   Введите первое число и нажмите ENTER: ');
  readln(A);
  
  textcolor(2);
  write('   Введите знак и нажмите ENTER: ');
  readln(D);
  
  textcolor(2);
  write('   Введите второе число и нажмите ENTER: ');
  readln(B);
  
  if D='+' then C:=A+B;
  if D='-' then C:=A-B;
  if D='/' then C:=A/B;
  if D=':' then C:=A/B;
  if D='x' then C:=A*B;
  if D='*' then C:=A*B;
  
  writeln;
  textcolor(2);
  write('   Получившийся ответ: ');
  textcolor(2);
  writeln(C);
  writeln;
  writeln;
  writeln;
end.