40 баллов СРООООООЧЧЧЧННОООО!!!
ПОМОГИТЕ СДЕЛАТЬ ПАСКАЛЬ ПОЖАЛУЙСТА
1.Составьте программу, которая вычисляет сумму всех нечетных, двузначных чисел;
2.Дано натуральное число n. Вычислите n5;
3.Дано число n. Напечатать натуральные числа, квадрат которых не превышает n.

поможешь?))

Спасибо гавриков.

Поправил.

Очень коряво поправил. (

а где именно поправить надо в решении?

1.var s,i:integer;begins:=0;for i:=10 to 99 do if i mod 2=1 then s:=s+i;writeln('s = ',s);end.Результат:s = 24752. Без использования стандартных функций:var n,p,i:integer;beginreadln(n);p:=1;for i:=1 to 5 do p:=p*n;writeln(n,'^5 = ',p);end.Пример:22^5 = 323.var n,i:integer;beginreadln(n);i:=1;while i*i<n do begin writeln(i,' (',i,'^2 = ',i*i,')'); i:=i+1; end;end.Пример:301 (1^2 = 1)2 (2^2 = 4)3 (3^2 = 9)4 (4^2 = 16)5 (5^2 = 25)