составить программу , вычисления суммы ряда. s=2²+4²+6²++20² всё в паскаль

 var   
s,a : integer;     

begin 
a := 2; 
s := 0;   
While a <= 20 do    
begin   
s := s + sqr(a);    
a := a +2;       
end;   
writeln (s); 
readln(); 
end.