// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a1,a2,c:real;
Write('Введите a1,a2,c: '); Read(a1,a2,c);
var b,d:real;
var N:integer;
if a1>a2 then begin
b:=(a1+a2)/c; d:=(a1+a2)*c; N:=1
end
else begin
b:=(a2-a1)/2; d:=(a2-1)*2; N:=2
end;
Writeln('b=',b,', d=',d,', N=',N)
end.
Пример
Введите a1,a2,c: -5.2 2.15 6.48
b=3.675, d=2.3, N=2