нужен калькулятор в free pascal на +-*/ и чтобы при делении 0 было написано 'Немогу делить на 0'

пишет exited with exitcode = 200

var a,b,c:real;znak:char;beginwriteln('Введите первое число');read(a);writeln('Введите второе число');read(b);write('Введите знак:');readln;read(znak);writeln;case znak of'+': c:=a+b;'-': c:=a-b;'/': c:=a/b;'*': c:=a*b;end;if (b=0) then writeln('Не могу делить на ноль') elsewriteln('Получаем в ответ:',c:0:4);end.