Составить программу вычеслкния значений функций у=х+5/2х+4 и у=корень х

1)

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