Надо написать какую-то программу по заданию: Вычислите сумму трех целых чисел. Ну, например чисел 1, 2 и 3.

program suma; var a,b,c,sum:integer; begin writeln('Введите числа через пробел'); readln(a,b,c); sum:=a+b+c; writeln('Сумма= ',sum); readln; end.