Chuyển các bài sau từ vòng lặp FOR sang vòng lặp WHILE: Việc chương trình tổng n cố tự nhiên đầu tiên chia hết cho 3, với n nhập từ bàn phím

Chuyển các bài sau từ vòng lặp FOR sang vòng lặp WHILE:
1. Việc chương trình tổng n cố tự nhiên đầu tiên chia hết cho 3, với n nhập từ bàn phím.
program Tinh_tong;
var n,i:integer;
      s:longint;
begin
 write(' nhap so n='); readln (n);<br />s:=0;<br />for i:=1 to n do if i mod 3=0 then s:=s+i;<br />writeln('Tong cua,n,'so tu nhien chia het cho 3 la:',s);
readln 
end.
2. Tinh trung binh cong cua n so tu nhien dau tien , voi n nap tu ban phim .
program Tinh_trung_binh_cong;
var n,i:integer;
     s:longint;
begin 
  write (' nhap so n='); readln(n);<br />  s:=0;<br />  for i:=1 to n do s:=s+i;<br />  writeln(' Tong cua',n,'so tu nhien s=',s/n);<br />  readln <br />end.<br />3. viết chương trinh tính s= 1+1/2+1/3+...+1/n , với n là số tự nhiên nhập từ bàn phím .<br />program Tong;<br />var n,i:integer;<br />      s:real;<br />begin<br />  write (' nhap so n=');  readln (n);<br />  s:=0;<br />  for i:=1 to n do s:=s+1/i;<br />  writeln ( 'Tong la:',s); 
  readln
end.
4. và các bài 1,2,3 trong bài thực hành sgk tin học 8 chuyển sang lệnh lặp while.
tôi đang cần gấp , nếu giải chính sát dễ hiểu nhất tôi sẽ cho 5 sao. Nhớ chuyền lệnh lặp for sang lệnh lặp while .