Запишите на языке паскаль программу которая вычисляет сумму кодов букв в слове байт

  const      b = 'байт';     var    l,i,s : integer;           begin  l : = length(b);   s : = 0;     for i : = 1 to l do    s : = s +ord(b[i]);         writeln (s);   end.

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

Минимально требуемый объем равен 1600*1200*24 бит/пиксель = 46080000 бит = 5760000 байт = 5625 к байт = 5,5 мбайт подходит карта 64 мегабайта