Pascal - Problema con la struttura case...of

Ciao a tutti.
Sto seguendo la guida sul Pascal di questo sito, provando i codici per esercitarmi.
Nel capitolo 6, c'è questo codice:

 Program Esempio;
Uses Crt;
Var n:byte;
    c:word;

begin
    clrscr;
    write(‘Inserisci un numero: ‘);
    readln(n);
    case n of
         1: writeln(‘E’’ stato premuto il pulsante 1’);
         2: begin
            sound(440);
            delay(1000);
            nosound;
            end;
         3 or 4 or 5: write(‘Il numero premuto è fra 3 e 5’);
    else
      begin
      c:=sqr(n);
      writeln(c,’ è il quadrato di ‘,n);
      end;
    end;
    readln
end. 

ma quando lo eseguo e premo il 3, il 4 o il 5, invece di venir fuori la scritta "Il numero premuto è fra 3 e 5", mi calcola la radice. Come si può aggiustare? Grazie.

E semplice, con la struttura CASE, non si usa il connetivo logico OR, ma basta una semplice virgola ",".
Cmq ecco il sorgente:

program Esempio;
uses Crt; 
var n:byte;
    c:word;

begin 
    clrscr; 
    write('Inserisci un numero: ');
    readln(n); 
    case n of
         1: writeln('Š stato premuto il pulsante 1');
         2: begin 
            sound(440); 
            delay(1000); 
            nosound; 
            end;
         3,4,5 :writeln('Il numero premuto Š fra 3 e 5');
    else 
      begin 
      c:=sqr(n); 
      writeln(c,' Š il quadrato di ',n);
      end; 
    end;
    readln 
end.

ciaooo

Grazie, ora funziona
Bisognerebbe dare una ritoccata alla guida...