Ответ:

361

Программа:

// PascalABC.Net

var x, answer: integer;

begin

   write('Введите x: ');

   readln(x);

   if x <= 0 then

       answer := 0

   else if x <= 1 then

       answer := x;

   if x > 1 then

       answer := sqr(x);

   writeln('Вывод: ', answer);

end.