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.

cHJvZ3JhbSBsYWI2YShpbnB1dCwgb3V0cHV0KTsKY29uc3QKICBuID0gODA7CnZhcgogIG15c3RyOiBhcnJheVsxLi5uXSBvZiBjaGFyOwogIGk6IGludGVnZXI7CiAgZG91YmxlVDogYm9vbGVhbjsKCmJlZ2luCiAgd3JpdGVsbignUGxlYXNlIGVudGVyICcsIG4sICcgc3ltYm9scyBmb3IgbXkgc3RyaW5nOicpOwogIGZvciBpIDo9IDEgdG8gbiBkbwogICAgcmVhZChteXN0cltpXSk7CiAgd3JpdGVsbignTXkgc3RyaW5nIGlzOicpOwogIGZvciBpIDo9IDEgdG8gbiBkbwogICAgd3JpdGUobXlzdHJbaV0pOwogIHdyaXRlbG47CiAgCiAgZG91YmxlVCA6PSBmYWxzZTsgCiAgZm9yIGkgOj0gMSB0byBuIC0gMSBkbwogICAgaWYgKG15c3RyW2ldID0gJ1QnKSBhbmQgKG15c3RyW2kgKyAxXSA9ICdUJykgdGhlbgogICAgYmVnaW4KICAgICAgZG91YmxlVCA6PSB0cnVlOwogICAgZW5kOwoKCiAgaWYgZG91YmxlVCB0aGVuCiAgICB3cml0ZWxuKCdUcnVlJykKICBlbHNlCiAgICB3cml0ZWxuKCdGYWxzZScpOwplbmQu

YVRUaXR1ZGVuZG5naGJnZG1iamdvZGpnb2JkbXN6amdvaWRpZHNvaW5kbmdoYmdkbWJqZ29kamdvYmRtc3pqZ29pZGlkc29pZ2Z5dWhqa2kK

aTTitudendnghbgdmbjgodjgobdmszjgoididsoindnghbgdmbjgodjgobdmszjgoididsoigfyuhjki