program z1;
var s, a:Integer;
begin
readln(s);
readln(a);
writeln('сумма: ', s+a);
writeln('разность: ', s-a);
writeln('произведение: ', s*a);
end .
Объяснение:
В начале вводишь 2 числа, а потом получаешь ответ
