Ответы и объяснения

2013-10-12T18:31:29+04:00
Наведу на мысль
var x,z:integer;
BEGIN
readln(x);

writeln(xmod10);
x=xdiv10;
writeln(xmod10);
x=xdiv10;
writeln(xmod10);
x=xdiv10;
end.
исправь ошибки если есть