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

1.
var s,i:integer;
begin
s:=0;
for i:=10 to 99 do
 if i mod 2=1 then s:=s+i;
writeln('s = ',s);
end.

Результат:
s = 2475

2. Без использования стандартных функций:
var n,p,i:integer;
begin
readln(n);
p:=1;
for i:=1 to 5 do p:=p*n;
writeln(n,'^5 = ',p);
end.

Пример:
2
2^5 = 32

3.
var n,i:integer;
begin
readln(n);
i:=1;
while i*i<n do
 begin
 writeln(i,' (',i,'^2 = ',i*i,')');
 i:=i+1;
 end;
end.

Пример:
30
1 (1^2 = 1)
2 (2^2 = 4)
3 (3^2 = 9)
4 (4^2 = 16)
5 (5^2 = 25)