a1 Silniaa

program cw3_47;

{ Program oblicza N! za pomocą funkcji Siln

{ Katalog r3_10 : 3_47.pas

var

N : Byte;

function Silnia (N : Byte) : Longint;

{ Funkcja oblicza silnie liczby N. } var

I    : Byte;

Wartość : Longint;

begin

Wartość 1; for I :■ 1 to N do

Wartość Wartość * I;

Silnia Wartość;

end; {-------------------- Silnia -}

begin

Write ('Podaj liczbę: '); Readln (N); Writeln (N, '! — ', Silnia(N));

Readln; end.