Var
s, a, b: string;
i: integer;
begin
readln(s);
a:='Да';
b:='Нет';
while pos(a, s) > 0 do
begin
i:=pos(a, s);
delete(s, i, length(a));
insert(b, s, i);
end;
writeln(s);
<span>end.</span>
Тебе надо сделать это в паскале правда или словестно
Словестно
1 идём сверху в низ
2 рисуем линию в права
3 по середине линии делаем линию вверх
4 возращяемся на горизонтальную линию
5 делаем отступ
6 и рисуем линию вверх
а если в паскале то надо подключать модуль graphabc
Цикл вида for i:=a to b do (Pascal) выполняется b-a+1 раз.
Цикл вида for x=a to b step h (Basic) выполняется FIX((b-a)/h)+1 раз, где FIX - операция получения целой части числа путем отбрасывания его дробной части.