Задача на паскале с параметром For

[bonys91]

написать программу вычисления суммы кубов всех четных чисел от 100 до 300
помогите пожалуйста где ошибки??????
program zadacha;
var y,a,s:real;
i:integer;
begin
y:=100;
s:=0;
for i:=100 to 300 do
a:=y*y*y;
y:=y+2;
s:=s+a;
writeln('s:3:3');
readln;
end.

[Sazary]

program zadacha;
uses crt;
var y,a,s:real;
i:integer;
begin
clrscr;
y:=100;
s:=0;
for i:=1 to 100 do
begin
a:=y*y*y;
y:=y+2;
s:=s+a;
writeln(s:3:3);
end;
readln;
end.

Вам нужно перебрать четные значения от 100 до 300. Всего их будет 100.
А у вас в цикле 200 итераций.

[bonys91]

премного благодарен!!!!!!!