Не могу составить задачу на паскале

[tomate]

Ребята, помогите пожалуйста! Просто я её составил, и тетрадь просрал по информатике (((
не могу вообще понять как это делать!(((((((((


нужно составить на Pascal ABC программу :


напечатать кубы чётных чисел от 10 до 20


короче чтобы кубы чётных чисел от 10 до 20 вывелись в ответ(


помогите пожалуйста!
я не помню как это делать!!!
срочно!
делать на завтра надо(

[alex_fcsm]

for i:=10 to 20 do
 if (i mod 2 = 0) then writeln(i,'---',i*i*i);

[Pein95]

program kj;
var n:integer;
kub:integer;
begin
n:=10;
while n<20 do
begin
kub:=n*n*n;
writeln(kub);
n:=n+2;
end;
readln;
end.

вроде так токо я ето делал в турбо паскале

опять не увидел что уже ответили)