Pascal Калькулятор.

[AntiLoop]

Доброго времени суток, уважаемые пользователи Pawno-Info! Знаю, что написал велосипед, но все-таки решил им с Вами поделиться. Мне он все-таки не нужен, как и Вам.

program CALCULATOR;
uses crt; // вызов чего-то там, не помню
var // работа с числами
A,C,D:real; // работа с дробными числами
B:char; // работа со знаками
begin

textbackground(0); 
clrscr; 

textcolor(10);
writeln('КАЛЬКУЛЯТОР by ReCaptcha');

textcolor(6); // 
write('Введите первое число: ');
textcolor(15);
readln(A);
textcolor(6);
write('Введите знак: ');
textcolor(15);
readln(B);
textcolor(6);
write('Введите второе число: ');
textcolor(15);
readln(C);

if B='+' then D:=A+C; // 
if B='-' then D:=A-C;
if B='/' then D:=A/C;
if B='*' then D:=A*C;

textcolor(6); // 
write('Ответ:: ');
textcolor(15);
writeln(D);

textcolor(8);
writeln('Спасибо за использование моей программы! Создатель - ReCaptcha'); 

end.

Автор: ReCaptcha, или же я.
p.s первый собственноручно написанный код.
​