=(2+8)+(7+3)+(4+6)+5

=  10   +   10   +  10+  5+35

ko được học sinh giỏi đâu

1+1+1+1+1+1+1+6=13

10000+5000-5290=9710 

K mình đi mình xin mà.

uses crt;

var n,i,kt,j:integer;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do

if i>1 then

begin

kt:=0;

for j:=2 to i-1 do

if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.