program FunctionSolver;
varx, result: integer;
beginwriteln('Введите значение X:');readln(x);
if x > 3 thenresult := x * x + 5elseresult := x - 8;
writeln('Результат: ', result);end.
program FunctionSolver;
var
x, result: integer;
begin
writeln('Введите значение X:');
readln(x);
if x > 3 then
result := x * x + 5
else
result := x - 8;
writeln('Результат: ', result);
end.