Составьте программу, которая выводит на экран четные числа от 10 до 20, по одному числу в строке. язык программирования paskalabc

Program vivod;
Var i: integer; 
Begin   
   for i:=10 to 20 do  
   if i mod 2=0 then  
   writeln(i); 
End.