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

program letter_v;var s: string;n:integer;begin writeln(\'Введите слово\');readln(s);if pos(\'в\', s, 1)>0 then beginwriteln(\'Первая буква \"в\" в слове \"\', s, \'\"\');writeln(\'находится на позиции номер \', pos(\'в\', s, 1), \'.\' )endelse writeln(\'Буквы \"в\" в слове \"\', s, \'\" нет.\')end.