Question

помогите составить программу на pascal​

Answer 1

Ответ:

program Prog;

var x, y: Integer;

begin

 x := 1;

 if x < 1 then begin

   y := -x;

end

else begin

   if x < 4 then begin

     y := -1

   end

   else begin

     y := x - 5

   end

end;

end.

Объяснение: