Ответы и объяснения

Лучший Ответ!
2014-01-17T17:19:28+00:00
Тебе какое ? Допиши, я дорешаю, пока что исправил первое.
Program e02;
var x,m:integer;
y:real;
BEGIN
Writeln('Введитеx,m:  ');
Readln(x,m);
y:=3*sqrt(sqr(m)-2)/sqrt(5*x);
Writeln(y);
Readln;
END.
Второеюif x>=y then Writeln(sqrt(x-y))
else
Writeln('Error!');