помогите
составить программы пожалуйста!

1. Program m1;
var s,n:real;
begin
n:=10;
s:=0;
while n<=124 do
begin
s:=s+n;
n:=n+2;
end;
writeln('сумма=',s);
end.

2. Program m1;
var s,n:real;
i:integer;
begin
n:=10;
s:=0;
for i:=1 to 58 do
begin
s:=s+n;
n:=n+2;
end;
writeln('сумма=',s);
end.