program CaseDemo;

uses
 Forms;

var
 UserIn: Char;

begin
 Read(UserIn);
 Case UserIn of
  'a':
    Writeln('Nacisne mae a');
  'z', 'Z':
    Writeln('Mae z albo due Z')
  else
    Writeln('To nie jest a, z ani Z');
 end;
 Readln; 
end.
