Pascal-Problem

[Gast]

Hallo,

hab ein Problem, das mir mein Compiler nicht richtig angezeigt.

Dieses Pascalprogramm lässt sich nicht kompilieren - warum?

Das Semikolon wird doch am Ende einer if anweisung nur weggelassen, wenns ein else gibt?


program Muenzen(input, output);

var
cent50,
cent20,
cent5,
cent2,
cent1,
rest,
eingabe : integer;


begin
Readln(eingabe);

if (eingabe >= 1) AND (eingabe <= 99) Then
cent50 := eingabe div 50;
rest := eingabe mod 50;

if rest <> 0 then
cent20 := rest div 20;
rest := rest mod 20;
if rest <> 0 then
cent5 := rest div 5;
rest := rest mod 5;
if rest <> 0 then
cent2 := rest div 2;
rest := rest mod 2;
if rest <> 0 then
cent2 := rest div 1;
end;
end;
end;
end;
Writeln(cent50 + ' ', cent20 + ' ', cent5 + ' ', cent2 + ' ', cent1 + ' ');
end;


end.

[SaschaW]

Mehrzeilige IFs benötigen eine begin...end Kapselung, in dem Code ist aber nur das end vorhanden.