richtig?

[resyiii]

ist dieser quelltext korrekt?

Delphi-Quellcode:

program eintritt;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var alt, ent,mit, log1, log2, log3: BOOLEAN;
a,e,m: INTEGER;

begin
write ('Alter:?'); readln(a);
write ('Entfernung=?'); readln(e);
write ('Mitglied=? (j=1, n=0)'); readln(m);

if a<15 then alt:= TRUE
        else alt:= FALSE;
if e>50 then ent:= TRUE
        else ent:= FALSE;
if m=1  then mit:= TRUE
        else mit:= FALSE;

log1:= (alt OR ent) AND mit;
log2:= (alt OR ent) AND NOT (mit);
log3:= NOT(log1) AND NOT (log2);

if log1=TRUE Then writeln ('Freier Eintritt');
if log2=TRUE then writeln ('Halber Eintritt');
if log3=TRUE then writeln ('Voller Eintritt');
readln;
  { TODO -oUser -cConsole Main : Hier Code einfügen }
end.