Question

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

Answer 1

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

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

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