a1 Silnia

program cw3_37;

{ Program oblicza N!    }

{ Katalog r3_08 : 3_37.pas    }

var

N, I : Byte;

Silnia : Longint; begin

Write ('Podaj liczbę: '); Readln (N);

Silnia 1;

for I 1 to N do Silnia Silnia * I;

Writeln (N, '! = Silnia);

Readln;

end.