Silnia - kod źródłowy

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.