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

Var
    n: integer;

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