Instructiunea Case

Instrucţiunea CASE este o instrucţiune alternativă multiplă care permite selectarea unei instrucţiuni dintr-o listă de instrucţiuni marcate, în funcţie de valoarea unui selector.

Diagrama de sintaxa 



Program P3;
        var n:integer;
begin
     writeln('Introduceti un numar');
     readln(n);
     case n of
         12,1,2: writeln('Iarna');
         3,4,5: writeln('Primavara');
         6,7,8: writeln('Vara');
         9,10,11: writeln('Toamna')
           else writeln('Ati introdus un numar gresit!');
      end;
     readln;
end.