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

var
i,k:integer;
begin
k:=0;
for i:=2 to 10 do
    k:=k+2;
writeln(k);
end.
     
Qbasic
DIM k, i AS INTEGER
k = 0
FOR i = 2 TO 10
k = k + 2
NEXT i
PRINT k
END