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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.