ПОМОГИТЕ ПОЖАЛУЙСТА!!!Напишите программу, которая вводит трёхзначное число и разбивает...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Напишите программу, которая вводит трёхзначное число и разбивает его на цифры. Например, при вводе числа 123 программа должна вывести"1,2,3"

Answer 1

Var a:integer;
begin
writeln('vvedite chislo');
readln(a);
write(a div 100,', ', a div 10 mod 10,', ', a mod 10)
end.