//Pascal ABC.NET v3.1 сборка 1219
Var
a,b,c:integer;
begin
read(a,b,c);
if a+b+c>100 then writeln('Сумма больше 100=',a+b+c) else writeln('Сумма=',a+b+c);
end.
Пример ввода:
200
50
8
Пример вывода:
Сумма больше 100=258
Нннннннееееееттттт.........
//PascalABC.Net
//1
var
a, b, c: real;
begin
readln(a, b, c);
writeln(a+b+c - max(a, max(b, c)) - min(a, min(b, c)));
end.
//2
var
a, b, c: real;
begin
readln(a, b, c);
writeln('Наименьшее число: ', min(a, min(b, c)));
writeln('Наибольшее число: ', max(a, max(b, c)));
end.
3) - 1
4) - 3
5) - 2
Все просто.......
P.S. Благодарность и лучший ответ не помешает.