Напишите программу на языке паскаль для решения дано четырёхзначное число х. найти: a. число десятков в нем; b. число единиц в нем; c. число сотен в нем; d. число тысяч в нем; e. сумму его цифр; f. произведение его цифр.

Uses crt;
var input, betw:integer;
begin         
readln(input);                  
betw := input;          
betw := betw div 10;         
betw := betw div 10;         
betw := betw div 10;
      
writeln('Тысяч = ', betw); 
                
betw := input;         
betw := betw div 10;         
betw := betw div 10;         
betw := betw mod 10;                  
writeln('Сотен = ', betw);                 
betw := input;         
betw := betw div 10;         
betw := betw mod 10;                  
writeln('Десятков = ', betw);                           
betw := input;         
betw := betw mod 10;                  
writeln('Единиц = ', betw);        end.