Program fff;
var
a,b,c,d, I, f: integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('Введите четвёртое число');
readln(d);
I:=a*b;
f:=c*d;
if i>f then
begin
writeln(I, 'больше', f);
end;
if ibegin
writeln(I, 'меньше', f);
end;
end.