1.

var i,n: integer;

s:longint;

begin

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

s:=0;

i:=1;

while i<=n do

begin

s:=s+i; i:=i+1;

end;

write('tong cua',n,' so tu nhien dau tien la',s);

readln

end.

2.

Program chan _le;

Var N: interger;

Begin

         Writeln('Nhap so nguyen N');

         Readln(N);

         If (N mod 2=0) Then write('N la so chan )

         else

         Write (N la so le);

         Readln;

End.

Các bài này không cần while do nha bạn

Chỉ cần if điều kiện thôi

Bài 1:

program bai_giai;
uses crt;
var N:longint;
begin
    clrscr;
    write('Nhap N ');   readln(n);
    if N mod 2=0 then write('La so chan')
        else write('Khong phai so chan');
    readln;
end.

Bài 2:

program bai_giai;
uses crt;
var N:longint;
begin
    clrscr;
    write('Nhap N ');   readln(n);
    if N>0 then write('La so nguyen duong')
        else write('Khong phai so nguyen duong');
    readln;
end.