Beginreadln (num);asarot:=num div 10;ahadot:=num - (asarot*10);writeln (ahadot,asarot);END.
הכל INTEGER