Viết chương trình tính tổng gt=a!+b!+c!+d!( a b c d là các số nguyên nhập từ bàn phím) bằng cách sd chương trình con hàm thủ tục để viết

Xây dựng chương trình con tính q=n'

uses crt;

var a, b, c, d : integer;

function q(n : integer) : integer;

var i, k : integer;

begin

k := 1;

for i := 1 to n do k := k * i;

q := k;

end;

begin

clrscr;

write('Nhap a, b, c, d = ');

readln(a, b, c, d);

writeln('Tong giai thua = ', q(a) + q(b) + q(c) + q(d));

readln

end.