tinh_giai_thua.pas

(* tinh_giai_thua.pas *)
VAR
    n: integer;
    k: integer;
    gt: longint;
BEGIN
    writeln('CHUONG TRINH TINH GIAI THUA N!');
    writeln('Nhap N = 0 de thoat');
    repeat
        write('Nhap vao N = '); readln(n);
        gt := 1;
        for k := 1 to n do begin
            gt := gt*k;
        end;
        writeln('Ket qua ', n, '! = ', gt);
    until n = 0;
END.