
var i:integer;
a,y:array[1..5] of real;
begin
for i:=1 to 5 do
readln (a[i]);
for i:=1 to 5 do
y[i]:=sqr(a[i]);
for I:=1 to 5 do
writeln (y[i]:5:1);
readln;
end.
