Написать программу, которая после ввода пользователем трехзначного числа…

var a,a1,a2,a3: integer; begin readln (a); a1: =a div 100; a2: =(a mod 100) div 10; a3: =(a mod 100) mod 10; writeln (a1+a2+a3); end. А — само число, а 1-число сотен, а 2-число десятков, а 3-число единиц