1.program oken;
uses CrT;
var i,tong:byte;
begin
clrscr;
i:=0;
while i<5 do
begin
i:=i+1;
tong:=tong+i;
end;
writeln('tong 5 so tu nhien dau tien: ',tong);
readln;
end.
2.program oken;
uses crt;
var n,i:integer;
begin
clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do
if n mod i=0 then write(i,' ');
readln;
end.