Оператор IF

[Cotman od]

Ввести три стороны треугольника. проверить является ли он прямоугольным

[Dush]

ввел, проверил, не является ...

[Cotman od]

Блин а код написать)?

[TinMan]

var
  a,b,c,d: real;
begin
  readln(a,b,c);
  if a>b then begin
    d:= a;
    a:= b;
    b:= d
  end;
  {тут строчка случайно стерлась при перезаписи, восстанови ее содержимое}
    d:= b;
    b:= c;
    c:= d
  end;
  WriteLn(Abs(a*a+b*b-c*c)<1e-7)
end.