johan

program KinderGeld;

var maandLoon,vastbedragPerKind,drieEnMeerToelage,vijfEnMeerToelage, totaal: real;
var aantalKinderen: integer;

begin
  altijd := 25.00;
  driEnMeerToelage:= 12.50;
  vijfEnMeerToelage:= 7.50;
  writeln('Hoeveel kinderen heeft u?');
  readln(aantalKinderen);
  writeln('Wat is uw maandloon?');
  readln(maandLoon);
totaal := altijd * aantalkinderen
  if (aantalKinderen >=3 )
  begin
    totaal := totaal + (aantalKinderen - 2) * drieEnMeerToelage ;
  end;
if (aantalKinderen >=5 )
  begin
    totaal := totaal + (aantalKinderen - 4) * vijfEnMeerToelage ;
  end;
/* we hebben 't totaal, nu gaan we afh van het loon kijken hoeveel er af of bij moet en of aan de derde conditie (minimum 25€ per /* kind voldaan wordt )
if (maandLoon <= 500) then
  begin
 	totaal := (totaal / 100 * 125);
  end
 else if (maandLoon >= 2000) then
  begin
	totaal := (totaal / 100 * 75 );
  end;
if totaal < aantalKinderen * 25
totaal = aantalKinderen * 25
end;
  writeln('Uw kindergeld bedraagt:', totaal );
  writeln('Druk op <ENTER> voor af te sluiten');
  readln();
end.