Bài 1 : 
program baitap;
uses crt;
var a:array[1..100] of real;
      n,i:integer;
      max:real;
begin
clrscr;
write('Nhap so hoc sinh: ');readln(n);
if (n<0) then 
begin
writeln('So nhap vao khong thoa man.');
write('Moi nhap lai: ');readln(n);
end;
for i:=1 to n do 
begin
write('Nhap diem tin hoc sinh [',i,']: ');
readln(a[i]);
end;
max:=a[1]
for i:=2 to n do
if (a[i] > max) then max:=a[i];
writeln('Diem tin lon nhat trong lop: ',max:2:2);
readln;
end.
Bài 2 : 
a. Biến không được để Begin -> x y z a b c gì đó
b. Hàm Const là hàm giá trị không đổi có thể chuyển thành y=2
c. =3 chuyển thành : integer / real / .......
d. ... -> ..
e. 3.8 và 4.5 chuyển thành số nguyên
// Chương trình chạy sai thì ib -.-