Напишите блок-схему к программе:Uses crt;Var n:integer;BeginWriteln(039;с фамилией какого из

Напишите блок-схему к программе:
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.
Помогите пожалуйста!