Даны четыре различных целых числа. Найти сумму тех чисел, которые больше 5.написать...

Question

Даны четыре различных целых числа. Найти сумму тех чисел, которые больше 5.
написать программу в Packalabc.net

Answer 1

Program fofgogjoj;
var
a,b,c,d,s,i:integer;
begin
s:=0;
Writeln('Введите первое число');
Readln(a);
Writeln('Введите второе число');
Readln(b);
Writeln('Введите третье число');
Readln(c);
Writeln('Введите четвертое число');
Readln(d);
if a>5 then
s:=s+a;
if b>5 then
s:=s+b;
if c>5 then
s:=s+c;
if d>5 then
s:=s+d;
Writeln('Сумма чисел больших 5 равна:', s);
end.