Вам нужно:
1) перевести строку в массив символов
2) узнать длину полученного массива
3) создать ещё один пустой символьный массив
4) создать цикл, в котором будут записываться элементы первого массива во второй, пока не встретится запятая. если же встретилась запятая, то заканчиваем выполнение цикла
5) узнать размер нового массива, который состоит из букв первого слова
6) вывести последний элемент нового массива, что и будет последней буквой первого слова
алгоритм, в общем-то, такой. Вам нужно лишь перевести это в код на нужном языке программирования
Program nalko;
uses crt;
const n = 10;
var
a:array [1..n] of real;
i,k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
Randomize;
{ввод чисел}
for i:=1 to n do
begin
write('Введите ',i,'-е число '); readln (a[i])
end;
writeln('Корни и квадраты: ');
for i:=1 to n do
begin
write('A[',i,']=',a[i]:7:2,' корень');
if a[i]<0
then write(' не существует')
else write('=',sqrt(a[i]):7:2);
writeln(' квадрат=',a[i]*a[i]:7:2);
end;
end.
вичисли слова https://youtu.be/EQCJwdgwNts вот силка