Написать программу которая будет высчитывать уравнение y=x^2,при x=2,4,6,8,10

Var  
x: Byte;
BEGIN x:=0;
While x<>10 do
begin   x:=x+2;
Writeln('X = ',x, ' Y= ',x*x);
end;
END.
Не люблю Pascal :(