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

На языке Pascalvar   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.