Составьте программу для нахождения суммы, разности и произведения двух чисел.

program z1;

var s, a:Integer;

begin

readln(s);

readln(a);

writeln('сумма: ', s+a);

writeln('разность: ', s-a);

writeln('произведение: ', s*a);

end .

Объяснение:

В начале вводишь 2 числа, а потом получаешь ответ