помогите с паскалем

[lyonya0111]

если не трудно напишите программу
вот задание:
Сочетание циклов и разветвлений
. Даны целые числа n, a1,…,an, где 1≤n≤50. Найти количество и сумму тех членов данной последовательности, которые удовлетворяют условию |ak|<k2.


и вот ещё одна простенькая
1+1/а (в квадрате) + 1/а (в четвертой) +..+1/а (в степени 2n)

[puporev]

Даны целые числа n, a1,…,an, где 1≤n≤50. Найти количество и сумму тех членов данной последовательности, которые удовлетворяют условию ak|<k2.

kol:=0;sum:=0;
for k:=1 to n do
if abs(a[k])<sqr(k)(видимо k2 это k^2) then
   begin
     kol:=kol+1;
     sum:=sum+a[k];
   end;

Условие второй задачи неверно, т.к. если брать первые три члена, то последовательность 1/a^(2n-2), а никак не 1/a^2n.

[lyonya0111]

во 2 задаче нужно паписать программу с пост. условием

[Stilet]

программу с пост. условием

НУ знач repeat...until. примени

[lyonya0111]

я знаю тока у меня сумму неправильно выводит

[Stilet]

Код в студию )

[lyonya0111]

program q;
var
s,t,n,a: real;
begin
writeln ('bedite a,n');
read (a,n);
s:=1;
t:=1;
repeat
t:=t/sqr(a);
s:=s+t;
until t<1/(2*sqr(a));
write('vivod S');
read
end.

[puporev]

Эта задача чуть посложнее первой, здесь, чтобы облегчить вычисления, нужно ввести функцию, которая будет возводить число А в степень 2n.
Вот как можно решить:

Program Riad;
uses crt;
var n,i:integer;
    a,sum:real;
function Step(a:real;b:integer):real;//функция для определения знаменателей дробей
var t:real;
begin
  t:=abs(a);
  if a<0 then Step:=(-1)*exp(b*ln(t))
  else Step:=exp(b*ln(t));
end;
begin
  clrscr;
  write('n=');readln(n);
  write('a=');readln(a);
  sum:=0;
  for i:=2 to n do   //считаем в цикле от 2 до n сумму 
     begin
       sum:=sum+1/Step(a,2*n);
     end;
  sum:=sum+1;  //добавляем 1 (первое число)
  write('sum=',sum:8:4);
  readln
end.

[lyonya0111]

а это программа с пост. условием?

[Stilet]

Нет. Нужно for заменить на repeat, ну и счетчик для окончания условия не забыть