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