Составить программу в паскале по решению функции
X в квадрате + 5 при x>3
X-8 при x меньше или равно трем

program prog;

var x:integer;

begin

write('Введите x: ');

readln(x);

if x > 3 then  

   x:=x * x + 5;

if x <= 3 then

   x:=x-8;

writeln(x);

end.