Объяснение:
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.
Объяснение:
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.