câu 4

a) NAMSINH : array[1..30] of integer;

b) CHIEUCAO : aray[1..50] of real;

Câu 4: a) var NAMSINH[1..30] of integer;

b) var CHIEUCAO[1..50]of integer;

c) Không thực hiện được: chỉ số cuối không được là một biến mà phải là giá trị cụ thể.

Câu 6: 

uses crt;
var n,i:longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do write('hello ');
readln
end.

Câu 7:

uses crt;
var n,i:longint;
begin
clrscr;
   writeln('|--------------------------------|');
   writeln('|           TRAN VAN B           |');
   writeln('|             LOP 8              |');
   writeln('|  TUONG THCS NINH TRI TRA VINH  |');
   writeln('|--------------------------------|');
readln
end.