"оно не оканчивается на ноль". или, как вариант: "оно не делится и на десять"
var prod,i:integer;
begin
prod:=1;
for i:=10 to 99 do
if(i mod 15=0) then prod:=prod*i;
writeln(prod)
end.
Для этого вам стоит воспользоватся сортировкой <span>"пузырьком" и отсортировать ваш массив
</span>
Var
n,s:longint;
begin
Write('Введите натуральное четырехзначное число: ');
Readln(n);
s:=n mod 10;
n:=n div 10;
s:=s+n mod 10;
n:=n div 10;
s:=s+n mod 10;
n:=n div 10;
s:=s+n;
Writeln('Сумма цифр введенного числа равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное четырехзначное число: 1745
Сумма цифр введенного числа равна 17