Question

помогите пожалуйста, информатика. цикл. pascal​

Answer 1

program vld;

var

x, y : integer;

begin

read(x);

if x <= -15 then

y := 5 * sqr(x)

else

if  (x<= 25) and (- 15 < x) then

begin

y := -x;

writeln(y);

end

else

y := - sqr(x)

end.