Напишите программу для проверки, есть ли в данном слове буква "в". Если есть, то найдите номер первой из них;

program letter_v;

var s: string;

n:integer;

begin

writeln ('Введите слово');

readln (s);

if pos ('в', s, 1) >0 then

begin

writeln ('Первая буква "в" в слове "', s, '"');

writeln ('находится на позиции номер ', pos ('в', s, 1), '.')

end

else writeln ('Буквы "в" в слове "', s, '" нет.')

end.