1) Viết chương trinh thông báo một số nguyên được nhập từ bàn phím là số chẵn hay lẻ 2) Viết chương trình nhập từ bàn phím 3 số nguyên (khác nhau). DDuaaw ra màn hình giá trị lớn nhất của 3 số đó.

C1:

uses crt;

var a:integer;

begin

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

if (a mod 2)=0 then writeln('So chan') else writeln('So le');

readln;

end.

C2:

uses crt;

var a,b,c,max:integer;

begin

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

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

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

max:=a;

if max<b then max:=b;

if max<c then max:=c;

writeln('MAX=',max);

readln;

end.

1) Program Chanle;
Uses crt;
Var n: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);

        If n mod 2 = 0 then Write('So chan')
        Else Write('So le');
        Readln
End.

2)

program GT_lon_nhat;

uses crt;

var a, b, c: integer;

begin

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

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

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

if a>b then write('gia tri lon nhat la ',a) else if b>c then write('gia tri lon nhat la ',b) else write('gia tri lon nhat la ',c);

readln;

end.