Question

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

Answer 1

Ответ:

0

Объяснение:

var  x,y: integer;

begin

    readln(x);   // Вводим -19

    if (x<=0) then y:=0;

    if (x>0) and (x<=1) then y:=x;

    if (x>1) then y:=x*x;

    writeln(y);   // Получаем 0

end.

Answer 2

Пометка "Лучший ответ" ставиться только если ответов несколько, или у меня не лучший ответ?