Напишите блок-схему к программе:
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 называется, кидаете туда программу на паскале, она вам блок-схему рисует.