Составьте программу печатающую значение true если указанное высказывание является...

Question

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

Answer 1

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.