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

Мария Т в категроии Информатика, вопрос открыт 29.06.2018 в 15:32

Вот задача:
const zvsoglasn = ['б', 'в', 'г', 'д', 'ж', 'з', 'л', 'м', 'н', 'р', 'й'];

var
mn: set of char;
c: char;

begin
mn:=[];
read(c);
while c <> '.' do
begin
if (c in zvsoglasn) then
mn:= mn + [c];
read(c)
end;
for c:='а' to 'я' do
if c in mn then write(c)
end.