Напишите,пожалуйста, программу полностью,чтоб работала))

Ответ:

var

   x, y: real;

begin

   readln(x);

   if (x<=5) then y:=sqr(x)

   else y:=sqrt(25*x);

   writeln(y);

end.