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

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