Вывести целые четные числа от 1 до 10 Пожалуйста помогите!Буду благодарен!

Question

Вывести целые четные числа от 1 до 10
Пожалуйста помогите!Буду благодарен!

Answer 1

Var i : Byte;
Begin
  For i:=1 to 5 do Write(i*2,' ');
end.