Вычислить заданное целочисленное выражение для данных a,b в формате integer или longint используя if результат тоже целочисленный. В программе должна быть предусмотрена как минимум одна процедура или функция исходные данные и результат должны проверятся на область допустимых значений — Pascal(Паскаль)

program zikl21;
function one(var a,b:real):integer;
var
x:integer;
begin
 
x:=round(a*b-3);
one:=x;
end;
var a,b,x:real;
  begin
  writeln('vvedite a');
  readln(a);
  writeln('vvedite b');
  readln(b);
  if a>b then
  x:=one(a,b);
  if a=b then
  x:=25;
  if a<b then
  x:=round((a-5)/b);
  writeln(x);
  end.