Помогите пожалуйста, нужно составить программу по инфе 9 класс.​

Ответ:

program p1;

var x,res: Integer;

begin

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

readln(x);

if x <= 0 then res := 2*x*x+1

 else res := x - 3;

writeln('Результат: ',res);

end.

Объяснение: