Ввести четыре числа, найти сумму первых двух и произведение следующих двух чисел.
Uses crt; var a,b,c,d: Integer; begin readln(a, b, c, d); clrscr; writeln(a + b); writeln(a * b); end.