Информатика, паскаль. Ввести три целых числа – стороны прямоугольника. Определить, является ли он прямоугольным. Если является, вывести на экран «Да» и вычислить его периметр, если нет – вывести сообщение «Данные стороны не могут являться прямоугольным треугольником
var a,b,c,x,max,min,sum,pr: integer;
begin
write('Введите число: ');
readln(x);
a:= x div 100;
b:= x div 10 mod 10;
c:= x mod 10;
sum:=a+b+c;
pr:=a*b*c;
if a>b then begin
min:=b;
max:=a;
end
else begin
max:=b;
min:=a;
end;
if min>c then min:=c;
if max<c then max:=c;
writeln('Сумма цифр числа: ',sum);
writeln('Произведение цифр числа: ',pr);
writeln('Максимальная цифра: ',max);
writeln('Минимальная цифра: ',min);
end.