var i,n: integer;

s:longint;

begin

write('nhap so n=');readln(n);</p><p>s:=0;</p><p>i:=1;</p><p>while i<=n do</p><p>begin</p><p>s:=s+i; i:=i+1;</p><p>end;</p><p>write('tong cua',n,' so tu nhien dau tien la',s);

readln

end.

Viết chương trình viết kiểm tra số nhập vào có phải là số lẻ hay không

Program Chan_le;

uses crt;

var a: integer;

begin

clrscr;

write('nhap vao so a ='); readln(a);

if ( a mod 2 = 0 ) then write(' a la so chan ')

else

write('a la so le ');

readln;

end.