Даны числа от 10 до 50. Выести на экран только четные.
Помогите, пожалйста. Срочно.

var i:integer;
begin
for i:= 10 to 50 do if i mod 2 = 0 then write(i,'  ')
end.