{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}

Program exemple26 ;

Var tab : Array[1..10] Of Integer ;
    i : Integer ;

BEGIN
For i:=1 To 10 Do
    Begin
         tab[i]:=i ;
         WriteLn(sqrt(tab[i])*5+3) ;
    End;
END.