Question

Срочно!!! помогите пожалуйста Pascal ABC
срочнее нужен пункт б , потом уже а . даю много баллов ​

Answer 1

Например, можно так (в старом стиле, простенько):

(если что, комментарии к строкам можете удалить (всё после символов // в строках)

var

s: string;

a: array of string;

n: integer := 2; // задаём номер нужного слова

begin

read(s); // ввод строки

a := s.Split; // разбиваем строку на массив строк со словами

write(a[n-1]) // считаем индекс элемента массива и выводим элемент

end.