Cod sursa(job #285544)

Utilizator wladVlad Mariasiu wlad Data 22 martie 2009 18:19:52
Problema Text Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.23 kb
Raporteaza aceasta sursa 
function tst(x:integer):integer;
 var i:integer;
   begin
    for i:=1 to x-1 do begin
     if pp(i) then if pp(x-i) then inc(tst);
         end;
       end;

var x,i:integer;

begin

readln(x);
write(tst(x));
readln;
end.