Дано положительное число A.Найдите среди чисел 1,1+1/2,1+1/3..........первое,большее 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.