Пожалуйста посчитайте пожалуйста!!! ¡!!Pascal

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