a) A: array[1..500] of  real;

b) A: array[1..1000] of boolean;

c) A: array[1..366] of real;

d) A: array[1..50] of boolean;

2) program i_am_the_one;

uses crt;

var b,c,d: real;

f,e,r,i: integer;

a: array [1..10000] of real;

la: array [1..10000] of real;

begin;

b:=0;

c:=0;

writeln('nhap so hoc sinh');           readln(f);

for :=1 to f do

begin

write('nhap so diem tin cua ban thu : ',i);

readln(a[i]);

end;

for :=1 to f do

begin

write(' so diem tin cua ban thu : ',i,' la', a[i]);

end;

for i:=1 to 1000 do

begin

writeln('ket qua xet nghiem cua nguoi thu ',i,' la duong tinh hay am tinh ');

writeln('neu la duong tinh thi go 1 con am tinh thi go 2');

readln(la[i]);

if la[i] =1 then b:=b+1;

if la[i] =2 then c:=c+1;

end;

writeln('so nguoi duong tinh voi nCOvid 19 la:',b);

writeln('so nguoi am tinh voi nCOvid 19 la:',c);

readln;

end.