составьте программу печатающую значение true если указанное высказывание является истинным и false в противном случае числа a и b выражают длины катетов одного прямоугольного треугольника, а c и d - другого. эти треугольники являются подобными

var  a, b, c, d: integer;begin  writeln('Введите катеты a и b: ');  read(a, b);  writeln('Введите катеты c и d: ');  read(c, d);  if a / b = c / d then write(true)  else write(false);end.