Напишите программу реализующую калькулятор на 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.