Составьте программу имитирующуюю работу калькулятора, где 1 сумма двух чисел, 2 рпзность двух чисел, 3 произведение двух чисел, иначе введен неизвестный номер операции

Program Pascal;

var a, b:integer;

begin

writeln ('Введите два числа : ');

readln (a, b);

writeln ('Сумма этих чисел равна ', a+b,' ');

writeln ('Произведение этих чисел равно ', a*b,' ');

writeln ('Разность этих чисел равна ', a-b,' ');

end.