Срочнооо ребяяяят
35 баллов даю

  • 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.