How to get the last line?

Question

Pascal

I don’t understand how to get the last line in the output example, you need to use this method:

var s:string;a,b,c,d:integer;
begin
  readln(s);
  b:=length(s);
  writeln('d=',b);
  writeln('s','[',b,']','=',s[Length(s)]);
  d:=b-1;
  writeln('d-1','=',d);
  writeln('s','[',d,']','=');
end.

Answer 1

writeln('s[', d, ']=', s[6]);