4434: Programmeertaal Algol

begin comment gebruik van for statement;
  integer maxn;
  text(1,‘Maximaal aantal getallen=’); maxn:=read(1);
  begin integer n,i;
    integer array a[1:maxn];
    n:=0;
    for i:=1,i+1 while a[i-1]>0 do
    comment Het aantal gelezen getallen wordt in n bijgehouden;
    begin 
      text(1,‘Getal ’);
      write(1,i);
      text(1,‘=’);
      a[i]:=read(1);
      if a[i]>0 then n:=i 
    end;
    for i:=1 step 1 until n do
    begin
      write(1,i);
      text(1,‘ ’);
      write(1,a[i]);
      skip(1)
    end
  end
end 

De programmeertaal Algol heeft een vooral op wiskundig correcte behandeling van data typen en structuren gerichte syntaxis. Belangrijk in Algol is het vooraf eenduidig declareren van alle variabelen, zodat de compiler tegen verkeerd gebruik kan waken. Een "blok" wordt ingesloten door 'begin' en 'end'. Alle "statements" en "blokken" worden gescheiden door een ';' een nieuwe regel, spatie of tab heeft geen enkele betekenis (Whitespace) een overtollige ';' is dus niet correct! In Algol wordt een toekenning geschreven als ':=' (spreek uit 'wordt') en niet als '=' zoals in Fortran, Basic of C.