Delphi - lab2

program lab2;
var
  x, y, f : real;
begin
  writeln('Input x: ');
  readln(x);
  writeln('input y: ');
  readln(y);
  f := y-x;
  if f < x + y then
     f := x+y;
  if f < 1 + x then
     f := 1 + x;
  writeln('f = ', f:8:5);
  readln;
end.