Помогите с Паскалем!!!!

Ответ:

361

Программка:

// PascalABC.Net

var x, answer: integer;

begin

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

   readln(x);

   if x lt;= 0 then

       answer := 0

   else if x lt;= 1 then

       answer := x;

   if x gt; 1 then

       answer := sqr(x);

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

end.