Var
  i: longint := 1;
  b: byte;
begin
  for b := 1 to 25 do
    i *= b;
  writeln(i);
end.
-----------------------
var 
 i: shortint := -5;
begin
  write('x  -5  -3  -1   1   3   5', System.Environment.NewLine, 'y');
   while (i <= 5) do
  begin
    write(5*sqr(i)-2*i+1:4);
    i += 2;
  end;
end.
--------------------------
begin
  writeln('S = ', (-200 + (-200 + 149 * 0.2)) / 2 * 150);
end.