Akar Kuadrat

program mencari_akar_dan_kuadrat;
uses wincrt;
var a,b,c:real;
begin
write('masukkan nilai=');readln(a);
b:=sqr(a);
c:=sqrt(a);
writeln('kuadrat=',b:3:2);
writeln('akar=',c:5:2);
end.