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.
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.