Определить, являются ли четыре числа A, B, C и D челенами верной пропорции. (паскаль) ​

Ответ:

Объяснение:

program Proportion;

var

 a, b, c, d: Double;

begin

 Write ('a, b, c, d = ');

 ReadLn (a, b, c, d);

 if a / b =  c / d then

   WriteLn ('Пропорция верна.')

 else

   WriteLn ('Пропорция не верна.');

  ReadLn;

end.