program RemoveSymbol va word, symbolToDelete: string i: integer begi writeln('Введите слово:') readln(word) writeln('Введите символ, который нужно удалить:') readln(symbolToDelete);
for i := 1 to length(word) d begi if word[i] <> symbolToDelete the write(word[i]) end end.
program RemoveSymbol
va
word, symbolToDelete: string
i: integer
begi
writeln('Введите слово:')
readln(word)
writeln('Введите символ, который нужно удалить:')
readln(symbolToDelete);
for i := 1 to length(word) d
begi
if word[i] <> symbolToDelete the
write(word[i])
end
end.