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;

begin
clrscr;
write('enter any character: ');
readln(a);

if letter_or_not(a) then writeln('simbol "',a,'" is a letter') else writeln('simbol "',a,'" is not a letter');

readln;
end.