Нарисовать блок схему

[PascalABC]

Добрый вечер! помогите мне правильно нарисовать блок схему для вот такой задачи:

program Z9c;
uses crt;
  var n:integer;
  var a,b:real;
begin
  Writeln('Вас приветствует супер калькулятор!');
  write('a= '); read (a);
  write('b= '); read (b);
  write('Номер действия: '); read(n);
  case n of
     1:writeln('Ответ: ',a+b);
     2:writeln('Ответ: ',a-b);
     3:writeln('Ответ: ',a*b);
     4:writeln('Ответ: ',a/b);
  else writeln('Ошибка');
  end;

end.

[PascalABC]

up! вверх!

[Abstraction]

Линейный блок кода - прямоугольник с одним выходом.
case - разветвление: вход один, выходов в нашем случае пять. Они уходят на свои линейные блоки, а потом объединяются на выходе из case.

[IT-man]

Пожалуйста!!!

[PascalABC]

IT-man
Спасибо большое!!

[Нанусичка]

Очень нужна помощь!К диплому нужна блок-схема на код!Помогите пожалуйста!!!