1) program vandat;
uses crt;
var n,i,t : integer;
begin
t:=0;
write('Nhap n:'); readln(n);
for i:=1 to n do if i mod 2=1 then t:=t+i;
write('Tong la :',t);readln end.
2) program vandat;
uses crt;
var n,i,t : integer;
begin
t:=0;
while t<=300 do begin i:=i+1; t:=t+i; end;
write('So N can tim :',i);
readln
end.
3) program vandat;
uses crt;
var s,i : integer;
begin
s:=8; i:=1;
while s<=4 do begin
s:=s-i; i:=i+1; end;
write('S=',s);
readln
end.
