Чому не можна виміряти інформацію​

program zadacha;

uses crt;

var a: array[1..6] of integer;

        max,i: integer;

begin

for i: =1 to 6 do readln(a[i]);

max: =a[1];

for i: =1 to 6 do if max > a[i] then max: =a[i];

writeln(max);

readln;

end.

вроде правильно..

если его поставить так, чтоб краев рядом не было, куда-нибудь в центр. тогда он всегда будет вертется

var temp: array[1..31] of integer; k,i: integer;

beginfor i: =1 to 31 do readln(temp[i]);

for i: =1 to 31 do 

if a[i]< 0 then inc(k);

writeln(k);

end.

var n,i: integer;

begin

  read(n);

  for i: = 2 to n-1 do

      if n mod i = 0 then writeln('no');

end.

var n,i: integer;

s: string;

begin

  read(s);

  for i: = 1 to length(s) do

      if s[i]="a" then n: =n+1;

  writeln(n);

end.

скорее всего так