Составить программу вывода на экран суммы удвоенных четных чисел из диапазона от 3 до 34 (Pascal ABC)
СРОЧНО!!!!!!!!!!!!!!!!!!

var

k, s: integer;

begin

s:=0;

for k:=3 to 34 do

if k mod 2= 0 then

s:= s+2*k;

writeln(s);

end.