Question

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

Answer 1

Uses crt;
var a,b,c,d: Integer;
begin
readln(a, b, c, d);
clrscr;
writeln(a + b);
writeln(a * b);
end.