Var a:longint;

begin

Write (' So thuc la : ');

Readln(a);

If (a mod 2=0) then writeln (a,' la so chan')

else writeln (a,' la so le ');

Readln;

end.

Uses crt;

var n:real;

begin

clrscr;

read(n);

if (n mod 2) = 0 then
writeln('N la so chan')

else writeln('N la so le');

readln

end.

type mang=array[1..100] of byte;

var a:mang;

n,i:byte;

procedure nhap;

begin

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

end;

procedure tinh;

var s:longint;

begin s:=0;

for i:=1 to n do

if a[i] mod 2<>0 then s:=s+a[i];

write('tong cac so le la:',s);

end;

begin

write('nhap n:');readln(n);

nhap;

tinh;

readln;

end.

1:

uses crt;

var a,b,c:real;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c):

writeln('so a la: ',a:4:2);

writeln('so b la: ',b:4:2);

writeln('so c la: ',c:4:2);

readln;

end.

2:

uses crt;

var a,b,tam:real;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

if a>b then write(a,' ',b);

if a=b then write(a,' ',b);

if a<b then write(b,' ',a);

readln;

end.

3:

uses crt;

var a,b,c:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

if (a+b>c) and (a+c>b) and (c+b>a) then

begin

if (a=b) and (b=c) then writeln('day la tam giac deu');
if ((b=c) and (b<>a) and (c<>a)) or ((a=c) and (a<>b) and (c<>b)) or ((a=b) and (a<>c) and (b<>c)) then writeln('day la tam giac can');
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then writeln('day la tam giac vuong')
else writeln('day la tam giac thuong');
end
else writeln('ba canh vua nhap khong phai la tam giac');

readln;

end.

var a,b:byte;

begin

write('nhap a,b:');readln(a,b);

write('a+b chia 7 duoc ',(a+b) div 7,' va du ',(a+b) mod 7);

readln;

end.

uses crt;
Var a:array[1..100000] of longint;
i,n,d:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 3=0) then inc(d);
write('Co ',d,' so vua chia het cho 2 vua chia het cho 3');
readln
end.

program andanh;
uses crt;
var i,n,tong,a:integer;
begin
clrscr; tong:= 0;
repeat
write('Nhap so cac so: ');readln(n);
if n > 10 then
begin
write('Nhap so be hon 10. Hay nhap lai');
delay(2000);
clrscr;
end;
until n <= 10;
for i:= 1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a);
tong:= tong + a;
end;
write('Trung binh cong cua cac so tren la: ',tong/n:2:2);
readln
end.

Program tinh_tong;
Var i,n,s:integer;
Begin
S:=0;
Write('nhap n =');readln(n);
For i:= 1 to n do s:= s+i;
Write('tong',n,'so tu nhien dau tien = ',s);
Readln
End.

minh khong biet co dung khong nhung co gang lam bai that tot nhe chuc ban may man