function min_3(const a, b, c: integer): integer; var local_min: integer; begin if (a < b) then local_min := a else local_min := b; if (c < local_min) then local_min := c; Result := local_min end;
function max_3(const a, b, c: integer): integer; var local_max: integer; begin if (a >= b) then local_max := a else local_max := b;
if (c > local_max) then local_max := c;
Result := local_max; end;
begin writeln('Введите a, b, c -> '); readln(a, b, c); writeln('Результат: ', min_3(a, b, c) + max_3(a, b, c), '.'); end.
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),0,9); a.Println; a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0]) .Foreach(t->Writeln(t[0],' - ',t[1])) end.
a = int(input())
if a % 2 == 0:
a /= 4
else:
a *= 5
print(int(a))