Задано произвольное целое число. Если они больше 50,то уменьшаете его в два раза, в...

Question

Задано произвольное целое число. Если они больше 50,то уменьшаете его в два раза, в противном случае возвести в квадрат.

Comments

в чем заключается вопрос?

---

видимо нужно написать программу

---

Да, программу на языке паскаль

Answer 1

Var
    n: integer;

begin
    read(n);
    if n > 50 then
        writeln(n / 2)
    else
        writeln(n * n)
end.