Даны целые числа A, B, C. Если A <B <C, то все числа возвести в квадрат и напечатать,...

Question

Даны целые числа A, B, C. Если A <B <C, то все числа возвести в квадрат и напечатать, иначе найти сумму этих чисел и напечатать.

Answer 1

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите A,B,C через пробел:');
  if (b>a) and (b  else Writeln(a+b+c)
end.

Примеры
Введите A,B,C через пробел: 3.15 8 -6
5.15

Введите A,B,C через пробел: -6 1.18 4.521
36 1.3924 20.439441