Программка запрашивает 4 числа умножает 1 и 2 3 и 4

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