program Silnia_z_petla_for; var i,n:integer; silnia:real; begin silnia:=1; writeln('Oblicz wartosc silnia dla'); readln(n); writeln; silnia:=1; if n=0 then writeln('Silnia 0=1') else if n=1 then writeln('Silnia 1=1') else if n>1 then begin for i:=2 to n do silnia:=silnia*i; writeln('Silnia ',n,' wynosi ',silnia:0:0); end else writeln('Silnia dla liczb ujemnych nie jest okreslona'); readln; end.