program raf105;
var x,y:real;
begin
write('x= ');
readln(x);
y:=x+5/(2*x)+4;
write('y= ',y);
end.
y:=sqrt(x);
Язык программирования PascalABC
program raf105;
var x,y:real;
begin
write('x= ');
readln(x);
y:=x+5/(2*x)+4;
write('y= ',y);
end.
2)program raf105;
var x,y:real;
begin
write('x= ');
readln(x);
y:=sqrt(x);
write('y= ',y);
end.
Язык программирования PascalABC