7. Проведите мозговой штурм. В каких ситуациях (на уро- ках, в повседневной жизни) вам могут пригодиться знания
и умения, полученные при изучении материала этого пара-
графа?​

напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет

количество кбайт умножаете на 1024 получаете количество символов 3,5*1024=3584

в одном байте восемь бит. следовательно 100/8=12.5   ответ 12.5

type

person=record

fam: string;

imya: string;

day: integer;

end;

var

a: array[1..50] of person;

i,n,z: integer;

begin

write('n='); readln(n);

for i: =1 to n do

begin

write('fam-'); readln(a[i].fam);

write('imya-'); readln(a[i].imya);

write('day-'); readln(a[i].day);

end;

write('z-'); readln(z);

for i: =1 to n do

if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);

readln;

end.