Впаскале. изменить программу так ,что бы она находила: 1) сумму четырёх чисел 2)произведения чисел 3)квадрат каждого числа

a, b: integer;

number : integer;

writeln('Добро в наш калькулятор/You are welcome! Введите значение a =');

writeln('Введите значение b =');

writeln('Выберите что хотите сделать, 1 + , 2 - , 3 / , 4 * , 5 ^2 , 6 корень');

if number = 1 then

writeln('a + b = ', a+b)

If number = 2 then

writeln('a - b = ', a-b)

If number = 3 then

writeln('a : b = ', a/b)

If number = 4 then

writeln('a * b = ', a*b)

If number = 5 then

writeln('a^2 = ', sqr(a));

writeln('b^2 = ', sqr(b));

If number = 6 then

writeln('Корень из a = ', sqrt(a));

writeln('Корень из b = ', sqrt(b));

за использование нашего калькулятора (Автор: Хамидов Алишер/Thank you for using my calc. (Author:Khamidov Alisher)');

writeln('You can find me on Instagram @khamidoff_ali/Вы можете найти меня в Инстаграм @khamidoff_ali');