О! научился формулировать задачу. Уже хорошо.
program zadanie1;
var
max,num,a :byte;
begin
max:=0;
writeln('vvodite chisla');
repeat
readln(a);
if a*a>225 then
writeln('Slishkom bolshoe chislo')
else
if max<a then max:=a ;
until a=0;
readln;
writeln('max=',max);
end.
16 цветов (градаций серого) кодируются 4 битами, т.к. 16=2^4. Значит один пиксель (точка) весит 4 бита. Всего точек 100*100=10000. Значит информационный объём всего файла будет 10000*4=40000 бит. 40000/8= 5000 байт. 5000/1024~=4,88 Кбайт
Функция Foo() принимает указатели на 2 массива (я так понял, что это нужно по заданию), а там уже вызывается функция, которой передаётся указатель только на 1 массив.
Получение информации
Обработка не которой оинформации
Пользывание соц сетями, материалами
Отправка информации
Передача информации
И куча куча всего
var i,j:integer;
begin
for i := 1 to 4 do
begin
for j:= i to 4 do write ('3 ');
writeln
end
end.