piszemy tak:

... tutaj mamy jakis tam kod


read(zmienna);
case Zmienna of
1:begin ..Jakis tam kod
end;
end.

... tutaj mamy jakis tam kod

Przykładowy program:

program Przykład;

var Zmienna:Integer;
begin
Writeln('Aby wyswietlic tekst 1. nacisnij 1, aby wyswietlic tekst 2. wpisz 2.');
Read(Zmienna);
case Znienna of
1:begin
Write('Tekst1');
end;
2:begin
Write('Tekst 2');
end;
end

end.


Jeśli popełniłem błąd w ordokrafi to napiszcie.