Question

даётся одно любое двухзначное число, необходимо вывести на экpан 2 числа из которых оно состоит
(в программе паскаль)

Answer 1

a: integer;
begin
readln(a);
writeln(a - 1,' ',1);
end.

Answer 2

program chisla;
uses crt;
var a,b,c : integer;
begin
write('Введите двузначное число: ');
Readln(a);
if (a>99) or (a<10) then Writeln('Введено не двузначное число') else
begin
b:=a div 10;
c:=a-(b*10);
Writeln(b,',',c);
end
end.