Написать программу если x меньше 0, то найти x^2. Иначе x уменьшить в 2 раза.

{PASCAL}var x:real;beginwrite('Введите число: ');readln(x);if x<0 then x:=sqr(x); else x:=x/2;writeln(x:4:1);end.