Уважаемые программисты, помогите...

[ЕлЕнОчкА]

Уважаемые программисты помогите пожалуйста с задачками. Думаю для вас это вопрос нескольких минут, а сама мучаюсь ничего не могу сделать толком...

1) Дана последовательность вещественных чисел за которой слудует 0. Просумировать значения с порядковыми номерами кратными 5, найти кол-во отрицательных значений меньше -2.3
2)Вывести на экран наименьшее трёхзначное число среди вводимой с клавиатуры последовательности любых целых чисел. Признаком окончания последовательности является число 22222.
Обе задачи циклами надо.
Помогите если не затруднит...

[alex_fcsm]

uses crt;
var n,min,code:integer;
    s:string;
begin
clrscr;
min:=1000;
repeat
readln(s);
if s<>'22222' then val(s,n,code);
if (length(s)=3) and (n<min) then min:=n;
if (length(s)=4) and (n<0) and (min>n) then min:=n;
clrscr;
until s='22222';
if min<>1000 then writeln('Min:',min);
readln;
end.

[alex_fcsm]

uses crt;
const n=40;
var a:array[1..n] of real;
    i,j:integer;
    sum:real;

begin
clrscr;
randomize;
for i:=1 to n do
a[i]:=random(10000)/10-300;
sum:=0;
for i:=1 to n do
if i mod 5 = 0 then sum:=sum+a[i];
Writeln('Summa 5 elements:',
sum:3:2);
j:=0;
for i:=1 to n do
 if a[i]<2.3 then inc(j);
Writeln('Numbers of elemets smaller than -2.3:',j);
end.

[ЕлЕнОчкА]

Спасибо Большое!!!!! но попыталась ввести задачу с числом 22222 выдаёт ошибку 3 (((

[alex_fcsm]

Перепишите правильно задачу(потеряли раздел var где-то)

[Darinka]

Уважаемые программисты помогите пожалуйста с задачей....

Дано вещественное число А и целое число N(>0).Вывести А в степени N:
AN=A*A*....*A

[alex_fcsm]

Сообщение от Darinka

Уважаемые программисты помогите пожалуйста с задачей....

Дано вещественное число А и целое число N(>0).Вывести А в степени N:
AN=A*A*....*A

X^N=exp(ln(x)*N) вам в помощь

var i:integer;
    a:real;
begin
readln(a);
readln(i);
if (a<0) and(i mod 2=1) then a:=-exp(ln(abs(a))*i)
else a:=exp(ln(abs(a))*i);
writeln(a);
end.

[ЕлЕнОчкА]

Alex_fcsm вроде всё правильно переписала 10 раз проверила нажимаю альт +ф9 и он пишет ошибка 3 и курсор становится length в начале этого слова...

[alex_fcsm]

Выложите то что вы переписали

[alex_fcsm]

Возьмите без length

uses crt;
var n,min,code:integer;
    s:string;
begin
clrscr;
min:=1000;
repeat
readln(s);
if s<>'22222' then val(s,n,code);
if (n>99)and(n<1000)and(n<min) then min:=n;
if (n>-999) and (n<-99) and (min>n) then min:=n;
clrscr;
until s='22222';
if min<>1000 then writeln('Min:',min);
readln;
end.