C1:
uses crt;
var i: integer;
begin
clrscr;
for i:=1 to 10 do writeln('Di mot ngay dang hoc mot sang khon');
readln
end.
C2:
uses crt;
a:array[1..100] of real;
i,n:integer;
begin
clrscr;
write('nhap so hoc sinh, n= ');readln(n);
for i:=1 to n do
begin
writeln('hoc sinh thu ',i,' :');
readln(a[i]);
end;
readln
end.