Составлене блок-схемы

[NXZ]

Всем привет!Прошу помочь составить блок-схему по заданию.
Арифметические действия над числам пронумерованы следующим образом 1-сложение,2-вычитание,3-умножение,4-деление.Дан номер действия и два числа А и В(В не равно нулю).Выполнить над числами указанное действие и вывести результат. Нужно сделать с помощью case.
Программа составленная на язык Паскаль
Program Nik;
Var a,b: real;
c: char;
Begin
Write('Первое число:');
readln (a);
Write ('Введите знак');
readln (c);
repeat
Write ('Второе число (<>0)');
readln (b);
if b=0 then writeln('Число не должно равняться 0');
until b<>0;
case c of
'1': a:=a+b;
'2': a:=a-b;
'3':a:=a*b;
'4':a:=a/b;
end;
Write ('Результат:',a:4:2);
End.