Unnamed

//ik weet alleen niet of de syntax van else goed is.. misschien dat ie voor 'begin' op de volgende regel moet.


var
  flin: text;
  getal: real;
  counter: integer;

begin
  assign(flin, 'D:\getallen.geg');
  rewrite(flin);
  writeln('******************************************************************');
  writeln('Voer een aantal getallen in.');
  writeln('Om de getallen invoer te beeindigen voer een negatief getal in.');
  writeln;
  counter := 0;
  repeat
    write('Geef een getal in: '); readln(getal);
    counter := counter + 1;
    if (counter = 3) then begin
       counter := 0;
       writeln(flin, getal:8:2);
    end else
    begin
       write(flin, getal:8:2, ' ');
    end
  until (getal < 0)
  writeln('******************************************************************');
  close(flin);
  write('Druk op [Enter] om het venster te sluiten...'); readln;
end.