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

var s,l , o, k :integer;
begin
writeln (3-x значное число);
readln (s);
k:=s div 100;
s:=s mod 100;
l:=s div 10;
o:=s mod 10;
writeln (k,,, l,,, o  );
end.

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