Составить программу для решения задачи. Ввести любое число с клавиатуры. Найти его квадрат, если число отрицательное, в противном случае найти квадратный корень.

 

 

program asd;USES crt;var a,b,s:real;BEGINclrscr;Writeln('Vvedite chislo: ');Readln(a);If a<0 then s:=sqr(a) else s:=sqrt(a); Writeln(s);END.