Var n, m :integer;
f: real;
begin
Writeln(Введите с клавиатуры два целых числа);
readln(n, m);
f:=sqr((n - (2*m))/(n+m));
writeln(Число n =, n);
writeln(Число m =, m);
writeln(Результат вычисления =,f);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.