Составьте программу если число положительное то извлеките из него квадратный корень в другом случяе возведите его в квадрат (если оно отрицательное)

Program z123;var a:real;beginreadln(a); //Вводим числоIf a>0 then //Проверяем  a:=Sqrt(a) //Вычисляем  else   a:=Sqr(a); //Вычисляемwriteln(a); //Выводимend.