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>
Программа и пример её работы - в прилагаемом файле.
Построим график функции у=5х
график этой функции проходит через начало координат (точку (0;0)) для построения взяли х=1 и получили у=5
соединили (0;0) и (1;5)
т.к нам не даны точные координаты точки, то мы не можем утверждать, что прямая будет проходить через эту точку