1)Составить программку для нахождения суммы первых n естественных чисел.(n вводим с

5 баллов за две программы, пусть даже простенькие - это жлобство))

как сделать больше? я могу 20 дать!

Мне все равно, я когда (и если) решаю, то не за баллы, а написал Для вас на будущее. Надобно все же почитать чужой труд...

Извините, я только на данный момент зарегистрировался, не знал..(

Var
  s, n: integer;

begin
  Write('Введите натуральное число: '); Readln(n);
  s := ((n + 1) * n) div 2; сумма арифметической прогрессии
  Writeln('Сумма естественных чисел от 1 до ', n, ' одинакова ', s)
end.

Результат исполненья программки:
Введите натуральное число: 10
Сумма натуральных чисел от 1 до 10 одинакова 55


var
  i: integer;

begin
  Writeln('Квадраты первых 5 нечетных естественных чисел');
  i := 5 * 2 - 1;
  while i gt; 0 do begin Writeln(i:2, sqr(i):5); i := i - 2 end
end.

Результат исполненья программки:
Квадраты первых 5 нечетных естественных чисел
 9   81
 7   49
 5   25
 3    9
 1    1