1) вводятся 2 числа. если квадрат их разности-число положительное, то найти разность квадратов этих чисел, иначе их произведение. 2) является ли произведение чисел а и b четными? 3) является ли треугольник со сторонами a,b,c-прямоугольным?

Program test;uses crt;var a, b, c: integer;begin  write('Enter a, b : ');  readln(a,b);  write('1)');  if sqr(a - b) > 0 then    writeln(sqr(a) - sqr(b))  else     writeln(a * b);  write('2)');  if (a * b) mod 2 = 0 then     writeln('True.')  else    writeln('False.');  write('Enter c: ');  readln(c);  write('3)');  if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c = a*a+b*b) then    writeln( 'Треугольник прямоугольный')  else    writeln( 'Треугольник не прямоугольный')  end.