label1.FontColor=Rnd(0,255),Rnd(0,255),Rnd(0,255)

Программа производит математические вычисления (сложение, вычитание) заданных пользователями чисел. Работа, в некоторых случаях, некорректна, ибо нет фильтрации данных, покажу на конкретном примере с пояснениями:

program kalkulator_pspinfo;
var a,b,c,d:integer;
begin
d=0;
writeln('Введите 2 числа с клавиатуры, через пробел: ');
readln(a, b);
writeln('Что делать: складывать - введите 1, вычитать - введите 2: ');
readln(c);
if c=a then a+b=d else;
if c=b then a-b=d else writeln('ERROR!');
writeln('Получилось: ', d);
readln;
end.

Программа принимает 2 числа и арифм. действие.
Допустим мы ввели 5 и 4. Если дальнейший символ = 1, то произойдёт операция 5+4=d,
переменная d примет значение 9. Если символ = 2, то 5-4=d, d=1.
Всё просто.

program myfisrt;
...
begin
...
end.