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

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