var a:integer; q:real;begin for a:=30 to 60 do begin q:=sqrt(a); writeln('chislo=',a,'; koren=',q:5:3); end;end.
var a:integer; q:real;
begin
for a:=30 to 60 do
begin
q:=sqrt(a);
writeln('chislo=',a,'; koren=',q:5:3);
end;
end.