// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
№11
begin
var (a,b,c):=ReadInteger3('Введите три целых числа:');
if (a=b) or (a=c) or (b=c) then Writeln('Есть одинаковые числа')
else Writeln('Нет одинаковых чисел')
end.
Пример
Введите три целых числа: 138 -1632 138
Есть одинаковые числа
№12
begin
var (a,b,c):=ReadInteger3('Введите три целых числа:');
Writeln('Искомая разность: ',Max(Max(a,b),c)-Min(Min(a,b),c));
end.
Пример
Введите три целых числа: 38 -14 59
Искомая разность: 73