Program z_1;
var a,b,c,d,n: integer;
begin
(начало алгоритма)
writeln('Введите 1 число');
readln (a);
writeln("Введите 2 число");
readln (b);
c:= a+b;
d:=a-b;
n:=a*b;
writeln(a,b,c);
(конец)
end.
(На всякий случай привел пример программы находящей сумму, разность, произведение чисел a и b.