Programming Case Types:
1. camelCase
2. PascalCase
3. snake_case
4. kebab-case
5. UPPERCASE (or SCREAMCASE)
you can also mix...
e.g. SCREAM_SNAKE_CASE
e.g. Pascal-Kebab-CaseProgram checkCase;
Var grade: char;
Begin
grade := 'A';
Case grade Of
'A' : Writeln('Excellent!');
'B', 'C': Writeln('Well done');
'D' : Writeln('You passed');
'F' : Writeln('Better try again');
End;
Writeln('Your grade is ', grade );
end.program casexemple;
uses crt;
var ch:integer;
begin
write('Your choice:');
read(ch);
case ch of
1:write('Your choice is',ch);
2:write('Your choice is',ch);
3:write('Your choice is',ch);
4:write('Your choice is',ch);
end;
end.