Question

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

Answer 1

Var
    n: integer;

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