Решить : c клавиатуры вводится число n . если оно положительное ,то выведите n^2(n*n).а если отрицательное , то выведите 0.

program Project2;

uses Crt;

var
  n:real;      // переменная n типа real begin

  readln(n); // считываем число с клавиатуры и кладем в переменную n

   if (n < 0) then n := n * n else n := sqrt(n); // если n меньше нуля, то перемножаем n на n иначе берем корень квадратный из n
 
writeln(n:4:4); // выводим полученное число, 4:4 нужно для обрезания дроби, чтобы не получилось +E100000000 ( как пример ) readln; // ждем нажатия enter, чтобы программа сразу не завершилась после вывода результата end. Если будет ругаться на sqrt(n) тогда там где uses Crt пропишите uses Crt, Math;