Question

Se citesc 4 nr întregi a,b,c,d determinați si afișați care din produsele a*b ,c*d este mai mare

Answer 1

Program Pn;
var
a,b,c,d:integer;
begin
Writeln('Dati 4 nr');
readln(a,b,c,d);
if a*b>c*d then Writeln('"a*b" este mai mare') else
Writeln('"c*d" este mai mare');
readln;
end.