Как на паскале сделать корень

Question

sqr это в квадрат, а как например √49=7, я просто решил калькулятор сделать

program new1;
uses graph ;
var Picka: String ;
var A,B: Real ;
begin
Read (Picka,A,B,) ;
if (Picka)= '+' then A:= A+B ;
if (Picka)= '-' then A:=A-B;
if (Picka)= '÷' then A:= A/B ;
if (Picka)= '×' then A:=A*B;
if (Picka)= '^2' then A:=sqr(a+b*0) ;
Write (A) ;
end.

Answer 1

Возвести в квадрат - sqr, извлечь корень - sqrt.