Помогите пожалуйста Напишите программу на языке Паскаль для решения задачи


Дано четырёхзначное число Х. Найти:
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.