Дано действительное число А, большее 1. Найти среди чисел 1, 1+1/2, 1

uses crt;
var a,x:real;
    n:longint;
begin
clrscr;
repeat
write('Введите число a>1 a=');
readln(a);
until a>1;
n:=1;
x:=1;
repeat
n:=n+1;
x:=x+1/n;
until x>a;
write('x=',x:0:2,' n=',n);
readln
end.

uses crt;
var a,x:real;
    n:longint;
begin
clrscr;
while a<=1 do
 begin
  write('Введите число a>1 a=');
  readln(a);
 end;;
n:=1;
x:=1;
while x<=a do
 begin
  n:=n+1;
  x:=x+1/n;
 end;;
write('x=',x:0:2,' n=',n);
readln
end.

var
 i,n:integer;               
 m,srrost:real;                 
begin                       
m:=0;
writeln('vvedite kol-vo uch');
readln(n);
for i:=1 to n do
begin
writeln('vedit rost');
readln(m);
srrost:=m+m;
end;
writeln(srrost);
readln;
end.

uses crt;
var a,x:real;
    n,n1,i:longint;
begin
clrscr;
while a<=1 do
 begin
  write('Введите число a>1 a=');
  readln(a);
 end;;
x:=1;
for i:=1 to 20000 do
 begin
  x:=x+1/i;
  if x>a then
   begin
    n1:=i;
    break;
   end;
 end;;
write('x=',x:0:4,' n=',n1);
readln
end.

var
i,n:integer; 
m,srrost:real; 
begin 
m:=0;
writeln('vvedite kol-vo uch');
readln(n);
for i:=1 to n do
begin
writeln('vedit rost');
readln(m);
srrost:=m+m;
end;
writeln(srrost);
readln;
end.