Напишите программу реализующую калькулятор на 4 арифметических деяния.На языке паскаль

Program test; 

var
  a,b:integer;
  rezultat:real;
  sign:char;
begin
  rezultat:=0;
  writeln('Введите числа a, b: ');
  readln(a, b);
  writeln('Введите символ операции: ');
  readln(sign);
  case sign of 
     '+': rezultat:=a+b;
     '-': rezultat:=a-b;
     '*': rezultat:=a*b;
     '/': rezultat:=a/b else writeln('An error occurred: Invalid operation! Try again!');
  end;
  writeln(rezultat);
end.