Составьте программу, выясняющую какая из букв П или В встречается раньше.

если в строке нет таких букв то ответ не верный

а вроде ж не сказано что надо проверять нашлись ли обе буквы.

var  str:string;  i:integer;begin  readln(str);  for i:=1 to Length(str) do    if ( str[i] = 'П' ) OR ( str[i] = 'В' ) then      break;  writeln(str[i]);end.