Задание №3. Задача: Ввести четыре числа, найти сумму первых двух и произведение следующих двух чисел.

Program calc;

Var a, b, c, d, sum, product: integer;

Begin

readln(a, b, c, d);

sum := a + b;

product := c * d;

writeln('Сумма первых двух: ', sum);

writeln('Произведение следующих двух: ', product);

End.