На картинке все написано.
Все очень просто. Надо взять ближайшее число I к 128
N=2^I
I=7
Program mq;
var
age:integer;
a:array[1..3] of String = ('ребёнок','ученик','студент');
begin
Read(age);
case age of
1..6:WriteLn(a[1]);
7..18:WriteLn(a[2]);
19..25:WriteLn(a[3]);
end;
end.
С блок схемой затруднения, сорян.
128*128=16384 точек, 4 кб=4096 байт=32768 бит
32768/16384=2 бита, то есть это монохромное изображение с двумя градациями цвета