program Z462;
uses crt;
const s='abcdefghijklmnopqrstuvwxyz';

var a:char;

procedure letter_or_not(a:char);
      var i:integer;
      begin
          for i:=1 to length(s) do
          begin
          if a=copy(s,i,1) then true;
          end;
      end;