Составить программу в паскаль, где при вводе любого трехзначного числа в результате все цифры этого числа записаны через запятую.Пожалуйста

Например
Введите трехзначное число 123
Результат 1,2,3

Помогите прошу https://znanija.com/task/27438635

vars:string;beginWrite('Введите трехзначное число -> ');readln(s);Write('Результат -> ',s[1], ',');write(s[2], ',');Write(s[3]);end.Пример:Введите трехзначное число -> 453Результат -> 4,5,3

Program n1;var a: integer;beginwrite('Введите трехзначное число: ');readln(a);write('результат: ',a div 100,',',a mod 100 div 10,',',a mod 10);end.