Информатика

Севар

19 октября, 02:16

Program qq;

var

s: string;

i, n, k: integer;

begin

writeln ('Введите несколько слов: ') ;

writeln;

writeln ('Введите номер слова: ') ;

readln (s) ;

readln (n) ;

for i: = 1 to length (s) do

//Считаем количество слов в строке.

//Делаем условие, по которому выводим либо ошибку (если такого слова нет), либо само слово.

writeln (n) ;

end.