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

Question

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

Answer 1

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