МС
Мария Соловьева
var a:integer;
begin
Write('a=');
readln(a);
writeln('I=',a div 10);
writeln('II=',a mod 10);
end.
Гм.. .
readln(n);
writeln(n);
Вот если бы наоборот - было бы интереснее.
readln(x);
a=x div 10;
b=x mod 10;
writeln(a);
writeln(b);