Дано положительное число a.найдите среди чисел 1,1+1/2,1+1/,большее a.. написать программу в паскаль

var

  A, S:real;

  i:integer;

begin

  write('A = '); readln(A);

  if A < 1 then

  begin

    writeln('1 > ', A);

    exit;

  end;

  if A < 1.5 then

    writeln('1.5 > ', A)

  else

    writeln('Таких чисел нет');

  readln;

end.