Viết chương trình tính tổng T:a^n +b^m+c^p Với các số a, b, c, m, n, p nhập từ bàn phím

var a, b, c: word;

      m, n, p: byte;

     T: qword;

Function gt(k: word; x: byte): qword;

    Var j: byte;

    Begin

        Gt:=1;

        For j:=1 to x do gt:=gt*k;

    End;

Begin

    Write('nhap a va n: '); readln(a, n);

    Write('nhap b va m: '); readln(b, m);

    Write('nhap c va p: '); readln(c, p);

    T:= gt(a, n) + gt(b, m) + gt(c, p);

    Write('tong: ', t);

    Readln

End.

program tinh_tong;

uses crt;

var a,b,c,n,m,p:integer;

     t:int64;

{---Chuong-trinh-con---}

function gt(k,h:integer):int64;

var i:integer;

begin

       gt:=1;

       for i:=1 to h do

              gt:=gt*k;

end;

{---Chuong-trinh-chinh---}

BEGIN

       clrscr;

       write('Nhap a: ');  readln(a);

       write('Nhap b: ');   readln(b);

       write('Nhap c: ');  readln(c);

       write('Nhap n: ');  readln(n);

       write('Nhap m: ');   readln(m);

       write('Nhap p: ');  readln(p);

       t:=gt(a,n)+gt(b,m)+gt(c,p);

       write('Tong la: ',t);

       readln;

end.