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

На языке Pascal
var   a,r:real;  

begin 
writeln('Введите число');
readln(a);   
   if a>0 then  
   begin     
     r:=sqrt(a);     
     writeln('r= ', r:6:3);   
   end     
 else   
  begin     
    r:=sqr(a);   
    writeln('r= ', r:6:3); 
  end;
end.