нужна срочная помощь!, таблица квадратов четных чисел. Опции

[vsk]

к понедельнику необходимо решить задачу на нахождение квадратов четных чисел от 0 до 20. Пожалуйста помогите с решением!

[мисс_граффити]

цикл от 0 до 20. на каждом шаге добавляешь 2 и считаешь квадрат (функция sqr(x))
в чем проблема?

[vsk]

проблема в том, что я в паскале полный ноль. Максимум на что я способен- это просто зазубрить решение. Чтобы получить зачет мне осталось только здать эту задачу. Если можно напишите ее решение. буду навечно благодарен.

[мисс_граффити]

как мало нужно для вечной благодарности...

var x: integer;

begin
x:=0;
while x<=20 do
  begin
  writeln('x=',x:2,'   x^2=',sqr(x));
  inc(x,2);
  end;
readln;
end.

[vsk]

огромное спасибо за помощь.