Viết chương trình pascal nhập vào từ bàn phím các số thực a,b và các nguyên dương m,n( m,n<10) rồi tính và đưa ra màn hình tổng T = a^n + b^m. Help me please

uses crt;
var a,b:real; m,n:longint;
function lt(a:real; b:longint):real;
var i:longint;
begin
   lt:=1;
   for i:=1 to b do lt:=lt*a;
end;
begin 
clrscr;
   write('Nhap a,b: ');readln(a,b);
   write('Nhap m,n: ');readln(m,n);
   writeln('T=',lt(a,n)+lt(b,m):0:3);
readln
end.

Program BTT;
Uses crt;
Var a,b,t,aa,bb: extended;
    m,n,i,j: longint;
Begin
        Clrscr;
        Write('Nhap a, b: '); Readln(a, b);
        Write('Nhap m, n: '); Readln(m,n);
        aa:=1; bb:=1;
        For i:=1 to n do
                aa:=aa*a;
        For j:=1 to m do
                bb:=bb*b;
        t:=aa+bb;
        Write('Tong la: ',t:0:2);
        Readln
End.