Berechnen und ausgeben wie viele Antworten richtig waren fürs Konsolenprogramm.

[DeddyH]

Delphi-Quellcode:

program Quiz;

uses
  ... (*benötigte Units *);

var
  RichtigeAntworten: integer = 0; (* dies ist die globale Variable *)

...

if RichtigBeantwortet then
  inc(RichtigeAntworten);
  (* oder anders ausgedrückt: RichtigeAntworten := RichtigeAntworten + 1 *)

...

writeln('Richtige Antworten:' + RichtigeAntworten);