program silnia;

var n,i,suma:integer;

iloczyn:real;

begin

i:=1;

iloczyn:=1;

writeln ('program licz silnie od 1 do n');

writeln ('Podaj n: ');

readln(n);

while (i<=n) do

begin

iloczyn:=iloczyn*i;

i:=i+1;

end;

writeln(' silnia wynosi ', iloczyn:10:0);

readln;

end.

program silnia;

var n,i,suma:integer;

iloczyn:real;

begin

i:=1;

iloczyn:=1;

writeln ('program licz silnie od 1 do n');

writeln ('Podaj n: ');

readln(n);

while (i<=n) do

begin

iloczyn:=iloczyn*i;

i:=i+1;

end;

writeln(' silnia wynosi ', iloczyn:10:0);

readln;

end.

program silnia;

var n,i,suma:integer;

iloczyn:real;

begin

i:=1;

iloczyn:=1;

writeln ('program licz silnie od 1 do n');

writeln ('Podaj n: ');

readln(n);

while (i<=n) do

begin

iloczyn:=iloczyn*i;

i:=i+1;

end;

writeln(' silnia wynosi ', iloczyn:10:0);

readln;

end.

program silnia;

var n,i,suma:integer;

iloczyn:real;

begin

i:=1;

iloczyn:=1;

writeln ('program licz silnie od 1 do n');

writeln ('Podaj n: ');

readln(n);

while (i<=n) do

begin

iloczyn:=iloczyn*i;

i:=i+1;

end;

writeln(' silnia wynosi ', iloczyn:10:0);

readln;

end.

---