Kod programu Kod: program silnia; var N, I:Byte; Silnia : Longint; begin write ('Podaj liczbe : '); readln (N); Silnia := 1; for I:=1 to N do Silnia := Silnia * I; writeln (N, '! = ', Silnia); readln; end.