посчитайте написать код в паскале на это

var

x,y : real;

begin

readln(x);

if x > 3 then

y := x * x - 5

else if x <= 3 then

y := x - 8;

writeln(y:5:2);

end.