Дано 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