Написать простой калькулятор — Pascal(Паскаль)

Program kalkulator;
Var a,c: real;
b: char;
Begin
Write('Первое число:');
readln (a);
Write ('Введите знак');
readln (b);
Write ('Второе число');
readln (c);
case b of
'+': a:=a+c;
'-': a:=a-c;
'*':a:=a*c;
'/':a:=a/c;
end;
Write ('Результат:',a);
End.