Составить похожую программуСрочно помогите пожалуйста 35 баллов ​

Question

Составить похожую программуСрочно помогите пожалуйста 35 баллов ​

---

Answer 1

Ответ:

Объяснение:

program one;

var x, y:integer;

begin

       read(y);

       if y>=15 then x:=sqr(y);

       else x:=15-y;

       write(x);

end.