Question

Pascal ABC.
Найти сумму цифр числа, больших 5
Помогите, пожалуйста

Answer 1

program name;
var a,b,c:integer;
begin
readln(a,b,c);
writeln('Сумма введённых чисел:', a+b+c);
end.

Эта программа подсчитывает сумму трёх введёных чисел.

program name;
var a,b,c:integer;
begin
readln(a,b,c);
if a+b+c>5 then
writeln('Сумма введённых чисел:', a+b+c)
else
writeln('Сумма чисел должна быть больше пяти!');
end.

А эта программа складывает только те числа, которые в сумме дают больше 5. Выбирай, какой больше подходит