Untitled

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.