дано некоторое число составьте программу которая выводит какое это число положительное или отрицательное если оно положительное уменьшить в 2 раза а в другом случае взвести в квадрат.

"выводит какое это число положительное или отрицательное"

У Вас - не выводит

Аналогично комментарию к первому ответу

Исправил, действительно надо внимательнее читать условие

И как тогда правильно будет,не особо поняла?

Последний вариант еще сообщает положительное число или отрицательное

//Pascal ABC.NET v3.1 сборка 1172Var a:real;begin readln(a); if a>0 then writeln('Положительное, ',a/2) else  if a<0 then writeln('Отрицательное, ',sqr(a)) else   writeln('0');end.Пример ввода:-12Пример вывода:-, 144

По моему такая задача уже несколько раз была здесь.//Pascalvar a:integer;begin  readln(a);  if a>0 then writeln('Положительное ', a/2)     else          if a<0 then writeln('Отрицательное', a*a);  if a=0 then writeln('0 - не положительное и не отрицательное число');end.