Cod sursa(job #743532)

Utilizator RadioactivMihai Preguza Radioactiv Data 4 mai 2012 20:30:54
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
var n,s,i,j:longint;

begin
  assign(input,'fractii.in');
  reset(input);
  readln(n);
  s:=n+n;
  for i:=2 to n do
    for j:=2 to n do
       if (i mod j <>0) and (j mod i<>0) then inc(s);
  close(input);
  assign(output,'fractii.out');
  rewrite(output);
  write(s-1);
  close(output);
END.