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.
