program lab8;
uses crt;
var
c: char;
v: integer;
begin
repeat
writeln('symbol');
c := readkey;
v := ord(c);
if (v > 97) and (v < 122) then
writeln('true')
else
writeln('false');
until v = 71;
end.
program lab8;
uses crt;
var
c: char;
v: integer;
begin
repeat
writeln('symbol');
c := readkey;
v := ord(c);
if (v > 97) and (v < 122) then
writeln('true')
else
writeln('false');
until v = 71;
end.