Помогите нарисовать блок схему.

[email protected] в категроии Информатика, вопрос открыт 07.07.2018 в 16:51

var m : set of char;
s : string; i : byte;
begin
write('Введите строку: ');
readln(s);
m :=[];
i := 1;
while i <= length(s) do
if s[i] in m then delete(s, i, 1)
else begin m:=m+[s[i]]; i := i + 1 end;
writeln(s)
end.