Обчисліть значення виразу44 || -4 % -5+ 36 % 5+ 13 ml -3 памагите

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

begin
  var a,b,R:real;
  Write('Введите сторону квадрата, треугольника и радиус: ');
  Read(a,b,R);
  var s1:=a*a; var s2:=a*a*sqrt(3)/4; var s3:=pi*r*r;
  var mx:real; var s:string;
  if s1>s2 then begin mx:=s1; s:='квадрата' end
  else begin mx:=s2; s:='треугольника' end;
  if s3>mx then begin mx:=s3; s:='круга' end;
  Writeln('Максимальная площадь у ',s,' и она равна ',mx)
end.

Пример
Введите сторону квадрата, треугольника и радиус: 13.5 16.3 3.72
Максимальная площадь у квадрата и она равна 182.25