26 скорее всего, учили когда-то
Vari, max, y: integer;
begin
Writeln('Вводите последовательно числа.');
Writeln('Для завершения ввода введите ноль.');
Writeln('----------------------');
max := 0;
y := 0;
repeat
y := y + 1;
write(y, ' число:');
readln(i);
if (y = 1) then max := i;
if (i = 0) then break;
if (i > max) then max := i;
until i = 0;
Writeln('----------------------');
Writeln('Максимальное число: ', max);
Writeln();
end.
Program intel;
var a,i,sum: integer;
Begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
a:= random(31)-10;
writeln(a:10);
sum:=sum+a;
end;
writeln;
writeln(sum:10);
readln;
end.
Вторая аналогично 16кбайт=1024*8*16 бит. на каждый пикслель приходится (1024*8*16)/(256*128)=4бита. при такой глубине максимальное число цветов 2^4=16.