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.
Объяснение:
