Помогите пожалуйста!
Нужно написать программу

vari,k:integer;begink:=0;for i:=2 to 10 do    k:=k+2;writeln(k);end.     QbasicDIM k, i AS INTEGERk = 0FOR i = 2 TO 10k = k + 2NEXT iPRINT kEND