составьте программу, которая находит и выводит на экран сумму цифр целого десятичного числа, которое считывает из файла

Процедуры, не связанные с объектами и событиями, называются процедурами пользователя или подпрограммами. Пользовательские процедуры можно использовать неоднократно. Если текст процедуры пользователя был записан в разделе General - в окне программного кода формы, то она будет доступна только для данной формы, но не доступна для других форм этого же приложения.

Чтобы процедура пользователя была доступна на всех формах приложения, ее текст следует записать в специальном окне

Module - модуль приложения. Программный код такой процедуры будет храниться в файлах приложения с расширением *.bas.

Program p1;
var k,t:integer;
begin
write('кг = ');
readln(k);
t:=k div 1000;
writeln('В ',k,' кг полных тонн ',t);
end.

Пример:
кг = 54937
В 54937 кг полных тонн 54

program p2;
var a,b,k:integer;
begin
a:=543;
b:=130;
k:=a div b;
writeln('Количество квадратов = ',k);
end.

Результат:
Количество квадратов = 4

program p3;
var a,b:integer;
begin
write('Введите четырехзначное число: ');
readln(a);
b:=9*10000+a;
writeln('Полученное число = ',b);
end.

Пример:
Введите четырехзначное число: 4937
Полученное число = 94937

program p4;
var a,b:integer;
begin
write('Введите трехзначное число: ');
readln(a);
b:=(a mod 100)*10 + a div 100;
writeln('Полученное число = ',b);
end.

Пример:
Введите трехзначное число: 437
Полученное число = 374

program p5;
var v1,v2,v3,t1,t2,t3,s:real;
begin
write('v1, t1: ');
readln(v1,t1);
write('v2, t2: ');
readln(v2,t2);
write('v3, t3: ');
readln(v3,t3);
s:=v1*t1+v2*t2+v3*t3;
writeln('Пройденный путь = ',s:5:2, ' км ');
end.

Пример:
v1, t1: 5 2
v2, t2: 3 0.5
v3, t3: 4 1.5
Пройденный путь = 17.50 км