Составить программу если число положительное, извлечь квадратный корень, в другом случае взвести в квадрат.

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