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.