1) var
y,x:real;
begin
writeln('Введите значение x: ');
readln(x);
y:=5/(2*sqr(x)-50);
writeln('y = ',y);
end.
2) var
y,x:integer;
begin
writeln('Введите значение x: ');
readln(x);
writeln('Введите значение y: ');
readln(y);
if x>y then
begin
writeln('x*2 = ',x*2)
end
else
if (x
begin
writeln('x*2 = ',x*2);
writeln('y*2 = ',y*2);
end;
end.