Помогите перевести с QBasic на Pascal

Формулировка задачи:

Всем привет я хочу научиться работать на паскале пожалуйста помогите мне перевести две программы с QBasic на Pascal буду очень признателен Программа №1 10 cls 20 P=3.14 30 FOR x=0 to 4*P STEP P/6 40 y=x+1+sin(x-1) 50 PRINT x,y 60 NEXT x 70 PRINT "программа завершена" Программа №2 10 CLS 20 INPUT x,y,l 30 sh = ((x*x)*SQRT(y)-y*(cos(x/2)*cos(x/2))) 40 z=SQRT(SQRT(2*sqrt(ABS(1+l^Ln(x))))) 50 F=sh/z 60 PRINT F Заранее спс)

Решение задачи: «Помогите перевести с QBasic на Pascal»

textual
                            Листинг программы 
                        

                            program n2;
uses crt;
var f,sh,z,x,y,i:real;
function stn(Var chislo, stepen:Real):Real;
     Var per:real;
     Begin 
      Per:= Abs(chislo);
      If chislo < 0 Then Pow:= (-1)*Exp((stepen)*Ln(per))
       Else Pow:= Exp((stepen)*Ln(per));
     end;  
begin
clrscr;
readln(x,y,i);
sh:=((x*x)*sqrt(y)-y*(cos(x/2)*cos(x/2)));
z:=sqrt(sqrt(2*sqrt(abs(1+stn(i,Ln(x)))));
f:=sh/z;
writeln(f);
end.
                        