Program baitap;

Uses crt;

Var A:array[1..40] of string;

      i:integer;

Begin

Clrscr;

For i:=1 to 40 do

     Begin

     Write('Nhap ten ban thu ',i,':');

     Readln(A[i]);

     End;

For i:=1 to 40 do Writeln('Chao ban ',A[i],'!');

Readln

End.

uses crt;
var a:array[1..40]of string;loichao,i:longint;
begin
 randomize;
 clrscr;
  for i:=1 to 40 do
        begin
         write('nhap ten ban thu ',i,':');readln(a[i]);
        end;
  for i:=1 to 40 do
        begin
         loichao:=random(4);
         if(loichao=1)then writeln('xin chao ',a[i]);
         if(loichao=2)then writeln('hello ',a[i]);
         if(loichao=3)then writeln('hi ',a[i]);
        end;
 readln;
end.

mình làm nhiều lời chào nha bạn