Составить программу, которая удваивает все двузначные четные числа и печатает их

program raf105;

var i: integer;

begin

for i:=10 to 99 do

 if (i mod 2)=0

   then writeln(i*2)

end.