Там было слишком много ошибок. Вот работающий код (*.pas файл открыть блокнотом)
<span>схема отношения
векторное изображение
схема алгоритмов
функциональная схема
что то мб подойдет</span>
Var
S:string;
B:boolean;
i:integer;
Begin
B:=false;
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S)-1 do
if S[i] = 'в' then
if S[i+1] = 'а' then B:=true;
if B then Write('Есть')
else Write('Нет')
End.
Изи, к примеру условие найти найболлшее из 4 цифр, а>б (если да то выведем что не выполнили задачу, так как до 3-его условия не добрались), нет, дальше б>с (если да то выведем что не выполнили задачу, так как до 3-его условия не добрались) нет, с>д если да то то самое большое это с, выводим переменную с на экран(write(c);), если нет то end.
под а) 4 под б)1 а в)6 ...............................