pascal 编写一个程序

var num:integer; begin readln(num); if (num mod 1=0)and (9<num) and (num<100) then writeln(num); readln; end.