Pame Pascal - IF

[codesix]

Έχω το εξής πρόγραμμα στην Pascal :

Όμως στην Pame Pascal v2.0 μου βγάζει πρόβλημα σ

Program bathmos;
var b:integer;

begin
bathmos:=0;

   repeat

   writeln('DOSE BATHMO');
   readln(;

    if b<=10 then
       begin
 
       writeln('MIKROS BATHMOS');

       else
   
       writeln('MEGALOS BATHMOS');
        end;



      Until b=0;

      writeln('TERMATISMOS PROGRAMMATOS');


      end.


 end.

Παλιά σε κάθε Else-if έβαζα και ένα end;

[iniohos]

Έχω το εξής πρόγραμμα στην Pascal :

Όμως στην Pame Pascal v2.0 μου βγάζει πρόβλημα σ

Program bathmos;
var b:integer;

begin
bathmos:=0;

   repeat
     writeln('DOSE BATHMO');
     readln(;
     if b<=10 then
     begin
 
       writeln('MIKROS BATHMOS');
     end 
     else begin
       writeln('MEGALOS BATHMOS');
     end;
     Until b=0;
     writeln('TERMATISMOS PROGRAMMATOS');


end.

Παλιά σε κάθε Else-if έβαζα και ένα end;

Για δοκιμασε το τωρα και πες αν σου δουλευει?

[freeuser]

Έχω το εξής πρόγραμμα στην Pascal :

Όμως στην Pame Pascal v2.0 μου βγάζει πρόβλημα σ

Program bathmos;

var 

   b:integer;

 

begin

     repeat

     writeln('DOSE BATHMO');

     readln(;

     if b<=10 then

     begin

 

       writeln('MIKROS BATHMOS');

     end 

     else begin

       writeln('MEGALOS BATHMOS');

     end;

     Until b=0;

     writeln('TERMATISMOS PROGRAMMATOS');

 

 

end.

Παλιά σε κάθε Else-if έβαζα και ένα end;

Για δες αυτο σε εμένα δουλεύει