из Visual Basic в Pascal

[kalugin19]

помогите перевести из Visual Basic в Pascal программу:
Sub Procedure_1()

Dim y As Double
Dim n As Long

Do
n = n + 1
y = Log(9 * n) / n ^ 2
Loop While y >= 1

MsgBox "Первый член последовательности, меньший 1: " & y

End Sub

[ZX Spectrum-128]

Log - это десятичный логарифм? Как-то по другому пишется. Сейчас поищу
Исправил

Procedure procedure_1;
var
  Y:double;
  N:longint;
Begin
  Repeat 
     N:=n+1;
     Y:=ln(9*n)/sqr(n);
  Until y<1;
   Writeln(y);
End;