<span>program Calc;</span><span>
</span><span>var
</span>
<span> a, b: </span>integer;
number : integer;
<span><span>begin
</span></span>
<span> writeln(</span>'Добро пожаловать в наш калькулятор/You are welcome! Введите значение a =');
<span>
read(a);
</span>
writeln('Введите значение b =');
<span>
read(b);
</span>
writeln('Выберите что хотите сделать, 1 + , 2 - , 3 / , 4 * , 5 ^2 , 6 корень');
<span>
readln(number);
</span>
<span> if number = </span>1 then
<span> writeln(</span>'a + b = ', a+b)
<span>
else
</span>
<span> If number = </span>2 then
<span> writeln(</span>'a - b = ', a-b)
<span>
else
</span>
<span> If number = </span>3 then
<span> writeln(</span>'a : b = ', a/b)
<span>
else
</span>
<span> If number = </span>4 then
<span> writeln(</span>'a * b = ', a*b)
<span>
else<span>
begin
</span></span>
<span> If number = </span>5 then
<span> writeln(</span>'a^2 = ', sqr(a));
writeln('b^2 = ', sqr(b));
<span>
end;
begin
</span>
<span> If number = </span>6 then
<span> writeln(</span>'Корень из a = ', sqrt(a));
writeln('Корень из b = ', sqrt(b));
writeln('Спасибо за использование нашего калькулятора (Автор: Хамидов Алишер/Thank you for using my calc. (Author:Khamidov Alisher)');
writeln('You can find me on Instagram @khamidoff_ali/Вы можете найти меня в Инстаграм @khamidoff_ali');
<span>
end;
end.</span>