Найдите информационный объем (в битах и байтах) растрового изображение размером 20 на 20 пикселей и палитрой из 65 536 цветов​

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end. 

program r; uses crt; var a, c, d, l, k: string[50]; b: integer; beginwriteln('! '); writeln('давай познакомимся! как тебя зовут? '); readln(a); writeln(' приятно, ',a,'! ','а меня зовут евгений.'); writeln('сколько тебе лет? '); readln(b);

if (a = 'антон' and b=15) thenwriteln(' через 50 лет тебе уже будет 65 лет, а звать тебя будут не антон, а дед антон');

writeln('мне тоже,' b, '! '); writeln('какую музыку ты любишь слушать? '); readln(c); writeln('ничего себе! да у нас похожие вкусы! ведь я тоже люблю слушать ', c); writeln('какое время года ты любишь? '); readln(d); writeln('я тоже обожаю ',d); writeln('какой твой любимый цвет? '); readln(l); writeln('мне кажется, мы во многом это и мой любимый цвет.'); writeln('кто ты по знаку зодиака? '); readln(k); writeln('надо же! я тоже ',k,'.'); writeln('было приятно познакомиться и поговорить,' a,'! пока! '); end.

это просто название месяцев, а вот май, август, октябрь, декабрь в этих месяцах по 31 дню, если в учитесь по босовой , то ответить нужно именно так

на чём писать? ну впрочем саму суть тут в условии:

объявляешь 3 числа: a b c

и условие

  if(a> 0)then

a: =a*a;

if(b> 0)then

b: =b*b;

if(c> 0)then

c: =c*c;

  выводишь на экран(или как там надо)

сори за ошибки давно на паскале не писал