дано два вещественных числа a,b.Отыскать сумму,разность,творенье,частность с помощью

Program calculator;
Var a,c: real;
b: char;
Begin
Write('Введите 1-ое число: ');
readln (a);
Write('Введите символ. ( + - сложение, - - вычитание, / - дробление, * - умножение): ');
readln (b);
Write('Введите 2-ое число: ');
readln (c);
case b of
'+': a:=a+c;
'-': a:=a-c;
'*': a:=a*c;
'/': a:=a/c;
end;
Write ('Итог: ',a);
End.