bạn nên tách ra như 1 bài thì sẽ có nhiều người like bạn đó. like bạn.

uses crt;

var i,n,s,j,kt:integer;

begin

clrscr;

readln(n);

s:=0;

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 s:=s+i;

end;

writeln(s);

readln;

end.

uses crt;

var a:array[1..100]of integer;

i,t:integer;

begin

clrscr;

for i:=1 to 100 do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to 100 do

write(a[i]:4);

writeln;

t:=0;

for i:=1 to 100 do

t:=t+a[i];

writeln(t);

readln;

end.

Program HOC24;

var a,b: integer;

tong: longint;

function dn(x: longint): longint;

var t: longint;

begin

dn:=0; t:=0;

while x<>0 do

begin

t:=t*10+(x mod 10);

x:=x div 10;

end;

dn:=t;

end;

begin

write('a='); readln(a);

write('b='); readln(b);

tong:=dn(a)+dn(b);

write('Tong doi xung cua a va b la: ',dn(tong));

readln

end.

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

i:=1;

while i<=n do

begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.

A:

uses crt;

var i:byte;

begin

clrscr;

for i:=1 to 10 do

write(i:4);

readln;

end.

B:

uses crt;
var p:integer;
begin
clrscr;
p:=9;
while p<=102 do
p:=p+6;
writeln('Ket qua la: ',p);
readln;
end.

uses crt;

var a,b,c,max:real;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln('So lon nhat la: ',max:4:2);

readln;

end.

Bài này hình như chỉ dùng for thôi

uses crt;
var i,j,k:byte;
begin
clrscr;
for i:=1 to 20 do
for j:=1 to 33 do
begin
k:=100-i-j;
if 5*i+3*j+k/3=100 then writeln('Trau dung ',i,' trau nam ',j,' trau gia ',k);
end;
readln;
end.

uses crt;

var a:array[1..50]of integer;

i:integer;

begin

clrscr;

for i:=1 to 50 do

begin

write('Hoc thu thu ',i,':'); readln(a[i]);

end;

for i:=1 to 50 do

if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

Program HOC24;

var i,n: integer;

begin

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

i:=1;

while i<n do

begin

if (n mod i=0) and (i<n) then write(i,' ');

i:=i+1;

end;

readln

end.

Program HOC24;

var t: integer;

begin

t:=103;

while t<>1 do

begin

t:=t-3;

write(t,' ');

end;

readln

end.