Программа должна выводить 1,2,3 Если я ввиду 123 У меня получается 1 0 3 (без запятых...

Question

Программа должна выводить 1,2,3 Если я ввиду 123 У меня получается 1 0 3 (без запятых почему то) Что у меня неправильно записано??? Помогите пожалуйста,очень нужно program GO; var a,b,c,d:integer; begin writeln('Введите трехзначное число'); readln(a); b:= a div 100; c:= c mod 10; d:= a mod 10; writeln(b,' ',c,' ',d); end.

Answer 1

var

   a, b, c, d: integer;

begin

   writeln('Введите трехзначное число');

   readln(a);

   b := a div 100;

   c := a div 10 mod 10;

   d := a mod 10;

   writeln(b, ', ', c, ', ', d);

end.