Укажи минимальный объём памяти (в битах), достаточный для хранения любого растрового изображения размером 28×28 пикселя, если известно, что в изображении используется палитра из 256 цветов. саму палитру хранить не нужно

Разрешение изображения (общее число пикселей)=28х28=784
каждый пиксель занимает 32 байта (1 бит на каждый цвет).
теперь умножаем число пикселей на объем памяти, занятый каждым пикселем - 32х784=25088 байт=200'704 бит

Var
  i:integer;
  t:array[1..3,0..31]of real;
begin
write('Введите температуру в декабре по дням: ');
for i:=1 to 31 do
  begin
  readln(t[1,i]);
  t[1,0]:=t[1,0]+t[1,i];
  end;
t[1,0]:=t[1,0]/31;
write('Введите температуру в январе по дням: ');
for i:=1 to 31 do
  begin
  readln(t[2,i]);
  t[2,0]:=t[2,0]+t[2,i];
  end;
t[2,0]:=t[2,0]/31;
write('Введите температуру в феврале по дням: ');
for i:=1 to 28 do
  begin
  readln(t[3,i]);
  t[3,0]:=t[3,0]+t[3,i];
  end;
t[3,0]:=t[3,0]/28;
writeln('Средняя температура в декабре: ',t[1,0]);
writeln('Средняя температура в январе: ',t[2,0]);
writeln('Средняя температура в феврале: ',t[3,0]);
writeln('Средняя температура зимой: ',(t[1,0]+t[2,0]+t[3,0])/3);
end.

Более красивый вариант) 

Program N_1;                         //Название программы
Var a,b,c:integer;                   //Переменные
BEGIN
Writeln('Введите длину и ширину прямоугольника');  //Вывести данную строку
readln(a,b);                         //Считать a и b
if a<b                                 //Если a<b
then begin                          //то найти периметр
c:=(a+b)*2;
Writeln('Пириметр= ',c)       //и вывести его
end
else begin                         //Если a>b
c:=a*b;                             //то найти площадь
writeln('Площадь= ',c)       //и вывести ее.
end;
END.