Čaute mám problém v pascale robím úlohu do školy na vetvenie, výpočet obsahu a obvodu obdlžníka. Keď však zadám strany program má počítať tak sa hneď ukončí.

Program Uloha;
var a,b,c,d : integer;
Begin
writeln('Pre obsah stlacte 1');
writeln('Pre obvod stlacte 2');

writeln('Vyberte moznost: ');
readln(d);

if d=1 then
begin
writeln('Zadaj strany a,b');
readln(a,b);
c := a*b;
writeln('Obsah je: ' ,c);
end

else if d=2 then
begin
writeln('Zadaj strany a,b');
readln(a,b);
c := 2*(a+b);
writeln('Obvod je: ' ,c);
end

end.


Neviete prečo to tak je?

lebo mu nekazes aby sa neskoncil. Daj na koniec este readln aby cakal na stlacenie klavesy

pise mi tam error

//autoeditácia príspevku (21 Apr 2012, 8:57)
ok uz to mam dakujem za pomoc