for i:=1 to 5 do
writeln(val[i],' sqrt= ',sqrt(val[i]),' sqr= ', sqr(val[i]));