DataMuseum.dk

algol<
begin
_____
integer n,g,i,j,sum;
_______
real m,s,a,h,k,T,l;
____
select(11);writecr;
nextdatagroup:for n:=read integer while n|0 do
              ___                 _____  =  __
 begin
 _____
 g:=1;
 m:=read real;s:=read real;a:=read real;h:=read real;k:=read real;
  begin
  _____
  real array A[1:n];sum:=0;
  ____ _____
  for i:=1 step 1 until n do
  ___      ____   _____   __
   begin
   _____
   A[i]:=read real;sum:=sum+1;
   if A[i]=0 then
   __        ____
    begin
    _____
    writetext(|<input error:too few elements in the datagroup.|);
              <                                               >
    writecr;writecr;writecr;go to nextdatagroup;
                            __ __
    end
    ___
   end;
   ___
  for l:=read real while l|0 do
  ___              _____  =  __
   begin
   _____
   sum:=sum+1;
   writetext(|<input error:too many elements in the datagroup.|);
             <                                                >
   writecr;
   end;writecr;writecr;
   ___
  if sum>n then go to nextdatagroup;
  __       ____ __ __
  writetext(|<level of significance:|);
            <                       >
  writecr;writecr;writecr;
  end
  ___
 end
 ___
end;t<
___