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

Program z8; 
Var p:integer; 
Begin 
p:=8; 
while p<20 do 
begin 
p:=p+2; 
writeln(p); 
end; 
end.