program lab6a(input, output);
const
n = 80;
var
mystr: array[1..n] of char;
i: integer;
doubleT: boolean;
begin
writeln('Please enter ', n, ' symbols for my string:');
for i := 1 to n do
read(mystr[i]);
writeln('My string is:');
for i := 1 to n do
write(mystr[i]);
writeln;
doubleT := false;
for i := 1 to n - 1 do
if (mystr[i] = 'T') and (mystr[i + 1] = 'T') then
begin
doubleT := true;
end;
if doubleT then
writeln('True')
else
writeln('False');
end.
cHJvZ3JhbSBsYWI2YShpbnB1dCwgb3V0cHV0KTsKY29uc3QKICBuID0gODA7CnZhcgogIG15c3RyOiBhcnJheVsxLi5uXSBvZiBjaGFyOwogIGk6IGludGVnZXI7CiAgZG91YmxlVDogYm9vbGVhbjsKIApiZWdpbgogIHdyaXRlbG4oJ1BsZWFzZSBlbnRlciAnLCBuLCAnIHN5bWJvbHMgZm9yIG15IHN0cmluZzonKTsKICBmb3IgaSA6PSAxIHRvIG4gZG8KICAgIHJlYWQobXlzdHJbaV0pOwogIHdyaXRlbG4oJ015IHN0cmluZyBpczonKTsKICBmb3IgaSA6PSAxIHRvIG4gZG8KICAgIHdyaXRlKG15c3RyW2ldKTsKICB3cml0ZWxuOwogCiAgZG91YmxlVCA6PSBmYWxzZTsgCiAgZm9yIGkgOj0gMSB0byBuIC0gMSBkbwogICAgaWYgKG15c3RyW2ldID0gJ1QnKSBhbmQgKG15c3RyW2kgKyAxXSA9ICdUJykgdGhlbgogICAgYmVnaW4KICAgICAgZG91YmxlVCA6PSB0cnVlOwogICAgZW5kOwogCiAKICBpZiBkb3VibGVUIHRoZW4KICAgIHdyaXRlbG4oJ1RydWUnKQogIGVsc2UKICAgIHdyaXRlbG4oJ0ZhbHNlJyk7CmVuZC4=