Program lab_15_13; uses crt; var s,d: string; z,k,c,i,j: integer; Begin clrscr; Write(' Vvedite stroky = '); Readln(s); c:=length(s); for i:=1 to c do if s[i]=' ' then k:=i; for i:=k+1 to c-1 do Begin j:=j+1; d[j]:=s[i]; end; Write('Poslednee slovo = '); for i:=1 to j do Write(d[i]); writeln; writeln('d = ',d); writeln('Dlina d = ',length(d)); readkey; end.