помогите решить задачу по информатике в паскаль ABC. Заранее Спасибо!

var a,i:integer;

begin

read (a);

for i:=1 to 4 do

begin

a:=a+2;

write(a,' ')

end

end.