1)s=60+57+...+9

2)p=5*10*15*...*35

с и while

8, 1, 4, 1, 5, 9, 6, 7, 2

всмысле какая ? (ну если я правильно понял вопрос,то )тут находится только с по формуле:   (a+b)*(b-a) и выводит результат (с) на экран.

1) 8 кбайт= 8192 байт = 65536 бит

2)32*32=1024 символов на странице

значит в каждую страницу помещается 1 кбайт, значит 320 страниц поместится

var a: array[1..100,1..100] of integer;

i,j,n,min: integer;

begin

  read(n);

  min: =maxint;

  for i: = 1 to n do

      for j: = 1 to n do begin

          read(a[i,j]);

          if abs(a[i,j])< abs(min) then min=a[i,j];              

      end;

  for i: = 1 to n do begin

      for j: = 1 to n do begin

          a[i,j]: =a[i,j] + min

          write(a[i,j]);          

      end;

      writeln;

  end;  

end.