Напишите блок-схему к программе: uses crt; var n: integer; begin writeln('с фамилией какого из древних учёных связано происхождение слова "алгоритм" ' ); writeln ('1) аль-каши'); writeln (' 2) аль- хайсана'); writeln ('3) аль- хорсами'); writeln (' введите номер ответа '); readln(n); if n=3 then writeln (' правильный ответ ') else writeln (' неверный ответ ') ; writeln (' происхождение слова "алгоритм" связано с фамилией - аль - хорсами '); end. !
Есть такая приблуда FCEditor называется, кидаете туда программу на паскале, она вам блок-схему рисует.