Program repeat_2_vel_oszthato;
var i:byte;
begin
   i:=100;
   repeat
    write(i:4);
    i:=i-2
   until i<13;
   readln
end.