Дано 3-х значное число 121,разбить его на три числа 1,2,1

Var
  a, b, c, n, d: integer;

begin
  write(Введите трехзначное число: );
  readln(n);
  a := n div 100;
  d := n mod 100;
  b := d div 10;
  c := d mod 10;
  writeln(n, =, a, ,, b, ,, c)
end.

Тестовое решение:

Введите трехзначное число: 121
121=1,2,1

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.