uses crt;
var mas:array[1..5] of byte;
    i:byte;
    x,cod:integer;
    er,num:string;
Begin
clrscr;
for i:=1 to 5 do
begin write('Input ',i,' num:'); readln(mas[i]); end;
clrscr;

num:='';

for i:=1 to 5 do begin
Str(mas[i],er);
num:=num+er; end;

val(num,x,cod);
writeln ('Num: ',x);
writeln ('Sqr: ',Sqr(x));
writeln ('Sqrt: ',Sqrt(x):2:2);

readkey;
End.