Пусть ai=(i-1)/(i+1)+sin((i-1)3/(i+1)), i=1,2,…,n. Дано натуральное n . Среди чисел a1,…,an выбрать наименьшее положительное число. Если положительных чисел нет, выдать сообщение — Pascal(Паскаль)

Program laba3;
var i,n:integer;
    a,buf:real;
    flag: boolean;
BEGIN
Writeln('Vvedite chislo n');
read(n);
flag:= false;
buf:=100000000;
        for i:=1 to n do
 begin
     a:=(i-1)/(i+1)+sin((i-1)*3/(i+1));
     if (a>0) and (a<buf) then  begin buf:=a; flag:=true; end;
 end;
 
 if not flag  then
 writeln('Положительных чисел нет') else
 
 writeln('Наименьшее положительное число : ' , buf:8:3);
 END.

Program laba3;
uses crt;
var i,n:integer;
    a,min:real;
BEGIN
clrscr;
Writeln('Vvedite chislo n');
read(n);
min:=999999999;
for i:=1 to n do
 begin
     a:=(i-1)/(i+1)+sin((i-1)*3/(i+1));
     if (a>0) and (a<min) then
     min:=a;
 end;
 
if min=999999999 then
 write('Polozitelnih znachenii net')
else Write('min = ',min:2:2);
readln;
readln;
END.