Запиши программу ** языке Паскаль

Question

Запиши программу на языке Паскаль

---

Answer 1

Ответ

144

Объяснение:

program Help;

var x: integer;

begin

readln(x);

if (x=0) or (x

write(0)

else

if (x>1) then

write(x*x)

else  

write(x);

end.

Comments

не забудь отметить как лучший ответ если все верно.

---

Отметил вроде)