Program tiz_husz; var a:real; begin WriteLn('Kerem a szamot!'); Readln(a); If (a<20) and (a>10) then Writeln('Tiz es husz koze esik') else Writeln('Nem esik tiz es husz koze'); Readln End.