Знатоки Турбо Паскаля, помогите решить задачки для 7-го класса. Дочке очень нужно.

1.

uses CRT;
var k,m,max: Integer;
begin
clrscr;
write('Введите массу предмета 1: ');
readln(m);
max:=m;
for k:=2 to 12 do
begin
write('Введите массу предмета ',k,': ');
readln(m);
if m > max then max:=m;
end;
writeln('Самый тяжелый предмет: ',max);
readkey;
end.

2.

uses CRT;
var k,n,a,s: Integer;
begin
clrscr;
write('Введите n: ');
readln(n);
s:=0;
for k:=1 to n do
begin
write('Введите a',1,': ');
readln(a);
s:=s+abs(a);
end;
writeln('Сумма: ',s);
readkey;
end.

3. Тут одним циклом FOR не обойдешься, для выделения цифр числа принято использовать цикл WHILE

uses CRT;
var k,n,s: Integer;
begin
clrscr;
for k:=1000 to 9999 do
begin
n:=k;
s:=0; { для каждого числа ищем сумму его цифр }
while n > 0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
if sqr(sqr(s)) = k then writeln(k);
end;
readkey;
end.

3) Как раз для таких задач и используются циклы FOR
for a1:=1 to 9 do
for a2:=0 to 9 do
for a3:=0 to 9 do
for a4:=0 to 9 do
begin
s:=1000*a1+100*a2+10*a3+a4;
s1:=a1+a2+a3+a4;
if s=s1^4 then ...
end;

Если без массивов, то (странная задача) :
program ex2;
uses crt;
var n, i, a, sum: Integer;
begin
write('n='); Readln(n);
i := 0;
sum:=0;
while i <= n do begin
write('a='); readln(a);
sum := sum + a;
i:=i + 1;
end;
writeln('sum=', sum)
end.