-chương trình in ra màn hình điểm thi môn tin học của 20 bạn học sinh lớp 7A :
program diem_thi;
uses crt;
var A:array[1..20] or real;
i:integer;
begin
clrscr;
for i:=1 to n do
begin
write('Nhap diem thi ban thu ',i,': '); readln(A[i]);
end;
writeln('DIEM THI THEO THU TU LA:');
for i:=1 to n do writeln(A[i]:0:2);
readln;
end.
Nhớ cho minmochi880 ctlhn nhoa~