Mình chỉ có thể viết chương trình thôi thôi, phần mô tả thuật toán thì mình chịu rồi. Xin lỗi.
P/s: ĐỀ THI CỦA BẠN DỄ QUÁ. CỦA TRƯỜNG MÌNH KHÓ HƠN NHIỀU.
CT1:
PROGRAM QLINKVN;
USES CRT;
VAR A,B,C,MAX: INTEGER;
BEGIN
CLRSCR;
MAX:=A;
IF (MAX<B) THEN MAX:=B;
IF (MAX<C) THEN MAX:=C;
WRITELN('SO LON NHAT LA ',MAX)
READLN;
END.
CT2:
PROGRAM QLINKVN;
USES CRT;
VAR I,N,SOLUONG: INTEGER;
BEGIN
CLRSCR;
WRITELN('Nhap gia tri cua N: '); READLN(N);
SOLUONG:=0;
FOR I:=1 TO N DO IF N MOD I = O THEN SOLUONG:=SOLUONG+1;
IF SOLUONG=2 THEN WRITELN('Day la so nguyen to') ELSE WRITELN('Day khong la so nguyen to');
READLN;
END.