Нужно определить состав трехзначного числа и записать в Pascal Abc

Var
a,i:integer;
begin
write(Введите число:);
readln(a);
writeln(Единицы: ,a mod 10);
a:=a div 10;
writeln(Десятые: ,a mod 10);
writeln(Сотые: ,a div 10);
readln;
end.

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