Составить алгоритм вычисления, блок-схему следующему выражению

program chislo;

var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.

program fasf;

var

n,q: integer;

begin

write('введите этаж: ');

readln(n);

q: =n*4;  

writeln('квартиры: ',q,q-1,q-2,q-3);

end. 

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.

  256 цветов = 8 бит/пикс = 1 байт/пикс, 300*200=60000 пикс - общий размер изображения, 4 цвета - 2 бита/пикс, 60000*2=120000 бит - объём видеопамяти, 120000=15000 байт, значит максимально допустимый размер изображения равен 15000 байт, если палитра будет 256 цветов, то размер изображения будет 15000 пикселей, 15000=100х150, значит ответ: 100х150