PROGRAM NUME;
USES CRT;
VAR A,B:INTEGER;
BEGIN
CLRSCR;
A:=2;
B:=3;
WRITELN('IL NUMERO ',A,' ',SQRT(A));
WRITELN;
WRITELN;
IDEM PER IL 3;
END.