Даны три фамилии. определить фамилии, начинающиеся с гласной буквы. сделать соответствующее сообщение. нужна только блок схема вот сама программа program d_3; const m = ['а', 'я', 'у', 'е', 'ы', 'о', 'э', 'и', 'ю']; var x: array [1..3] of string; i, k: byte; begin for i : = 1 to 3 do begin readln(x[i]) end; k : = 0; for i : = 1 to 3 do if upcase(x[i][1]) in m then begin writeln(x[i]); k : = k + 1 end; if k = 0 then writeln('нет таких фамилий') end.
Эта программа умеет по коду рисовать блоксхемы. Правда на ошибки она привередливая.