действительные числа

program tmp;
uses crt;
var
   a,sum:real;
   i,n:integer;
begin
clrscr;
write('a,n: '); readln(a,n);
sum:=0;
for i:=1 to n do sum:=sum+1/(exp(ln(a)*n));
write(sum:2:2);
readkey;
end.

program tmp;
uses crt;
const
     count=50;
var
   a,sum:real;
   i,n:integer;
   mas:array[1..count] of real;
begin
clrscr;
mas[1]:=0;
mas[2]:=mas[1];
mas[3]:=1.5;
repeat
write('n: '); readln(n);
until n>=4;
for i:=4 to n do mas[i]:=((i+1)/(sqr(i)+1))*mas[i-1]-mas[i-2]*mas[i-3];
write('mas[',n,']: ',mas[n]:2:2);
readkey;
end.

program tmp;
uses crt;
var x,y,x1,y1:real;
begin
clrscr;
repeat
write('x,y: '); readln(x,y);
until x<>y;
if x>y then begin
            x1:=x;
            y1:=y;
            y:=(x+y)/2;
            x:=2*x1*y1;
            end
else begin
     x1:=x;
     y1:=y;
     y:=2*x*y;
     x:=(x1+y1)/2;
     end;
write('x: ',x:3:2,' ; y: ',y:3:2);
readkey;
end.

program lab2_3;
    uses Crt;
    var  i:integer; 
             dob :real;
               
    begin                   
    clrscr;
    dob:=1;
    for i:=2 to 10 do 
    begin
     dob:=dob*(sqr(i-(1/i*1)));                 
    end;
    
    writeln('dob=', dob:7:2);
    readln 
    end.