program liczenie;
var
  m, n, i, wynik, j: integer;
  x: word;

begin
  writeln('Podaj liczbe x');
  read(x);
  for i := 1 to x do
	begin
	if Int(sqrt(i))=sqrt(i)then
	n :=n+1;
	end;
  for j := 2 to n do
	begin
	if (n mod j = 0) then
	m := m+1;
	end;
	wynik := m*x+n;
  write('Wynik: ', wynik)
end.