написать программу вычисления значения функции

        x^2 x>5
y=  17x-1 npи -7<х<=5
       25 при x<=-7

var  x,y:real;  begin  Write('Введите значение аргумента x: ');  Readln(x);  if x<=-7 then y:=25  else    if x<=5 then y:=17*x-1    else y:=sqr(x);  Writeln('Значение функции равно ',y:0:4)end.Тестовое решение:Введите значение аргумента x: 3.78Значение функции равно 63.2600