Паскаль помогите пожалуйста.

Question

Паскаль помогите пожалуйста.

---

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Var
 x:real;
begin
 read(x);
 if x<-3 then writeln('5');<br> if (x>=-3) and (x<2) then writeln(2*sqr(x));<br> if x>=2 then writeln(3-x);
end.

Пример ввода:
1
Пример вывода:
2