Напишите программу в паскале: Дано 2 строки. Сосчитать количество символов в первой строке, которых нет во второй.

Предыдущий
вопрос Следующий
вопрос

program CountChars;
var
str1, str2: string;
count, i: integer;
begin
count := 0;

writeln('Enter the first string:');
readln(str1);

writeln('Enter the second string:');
readln(str2);

for i := 1 to length(str1) do
begin
if pos(str1[i], str2) = 0 then
count := count + 1;
end;

writeln('Number of characters in the first string that are not in the second:', count);

end.