Даны целые числа а1, а2, а3. получить целочисленный массив в[1..3, 1..3], для которого b[i, j]=ai-3aj.

program painnagato; uses crt; const n=3; var i,j: integer;   a: array[1..n] of integer;   b: array[1..n,1..n] of integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   for i: =1 to n do      begin          write('введите ',i,'-е число ');           readln(a[i]);       end;   writeln('результат: ');   for i: =1 to n do      begin          for j: =1 to n do              begin                  b[i,j]: =a[i]-3*a[j];                   write(b[i,j]: 5);               end;           writeln;       end; end.

const n=3; var i,j: integer; a: array[1..n] of integer; b: array[1..n,1..n] of integer; beginfor i: =1 to n do readln(a[i]); for i: =1 to n do begin for j: =1 to n do begin b[i,j]: =a[i]-3*a[j]; write(b[i,j]: 4); end; writeln; end;

end.

Основную ошибку вам уже указали. можно программу немного сократить: program yyy;   function prost(x: integer): boolean;   var  k,i: integer;   begin  k: =0;   for i: =2 to trunc(sqrt(x)) do   if x mod i = 0 then k: =k+1;   prost: =k=0 end;   var  n,m,i: integer;   begin  write('n='); readln(n);   write('m='); readln(m);   for i: =n to m-2 do   if prost(i) and prost(i+2)   then writeln(i,'   ', (i+2));   end. пример: n=1 m=150 1   3 3   5 5   7 11   13 17   19 29   31 41   43 59   61 71   73 101   103 107   109 137   139

в 1965 году для обозначения информационных единиц, связанных между собой ассоциативно, тед нельсон ввел понятие гипертекст.

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

считается, что гипертекст подтолкнул развитие world wide web, который и стал громаднейшим информационным пространством, связанным между собой как раз с гиперссылок.