program Silnia_z_petla_for;
uses crt;
var
   i,n:integer;
   silnia:real;

begin
writeln('Oblicz wartosc silnia dla');
readln(n);
writeln;

if n>=0 then
begin
   if (n=0) or (n=1) then
      writeln('Silnia 0 i 1 = 1')
   else
      begin
      silnia:=1;
      for i:=2 to n do
         silnia:=silnia*i;
         writeln('Silnia ',n,' wynosi ',silnia:0:0);
      end
end
else
   writeln('Silnia dla liczb ujemnych nie jest okreslona');

repeat until keypressed;
end.