16=2^4 =>4 бит на пиксель
320*320*4=409600 бит=51200 байт=50 кбайт
Модифицированные данные с диаграммами в 1 лист
Ответ следующий 0.3*1024=307.2Кб
{Эта рабочая 100% :3}
var n: string;
procedure foo(str: string);
begin
writeln(str);
end;
function foo1(str: string): string;
begin
foo1:= str;
end;
begin
foo('I am a procedure');
n:= foo1('I am a function');
writeln(n);
end.