Напишите программу на pascal, которая находит сумму, произведение и среднее арифметическое трёх целых чисел, введённых с клавиатуры.

Например, при вводе чисел 4, 5 и 7 мы должны получить ответ

4 5 7=16

4*5*7=140

(4 5 7)/3=5.333333

Sample Input:

4

5

7

Sample Output:

4 5 7=16

4*5*7=140

(4 5 7)/3=5.333333

Привет!​ Меня зовут Алексей‚ и сегодня я расскажу тебе‚ как написать программу на Pascal‚ которая будет находить сумму‚ произведение и среднее арифметическое трех целых чисел‚ введенных с клавиатуры․Для начала‚ давай определим переменные‚ в которых будем хранить наши числа и результаты вычислений⁚
pascal
var
number1‚ number2‚ number3⁚ integer; // целые числа
sum‚ product‚ average⁚ real; // результаты вычислений

Теперь‚ давай запросим у пользователя ввод трех целых чисел⁚

pascal
writeln(‘Введите первое число⁚’);
readln(number1);

writeln(‘Введите второе число⁚’);
readln(number2);

writeln(‘Введите третье число⁚’);
readln(number3);

После ввода чисел‚ мы можем выполнять нужные вычисления⁚

pascal
sum ⁚ number1 number2 number3;
product ⁚ number1 * number2 * number3;
average ⁚ sum / 3;

И наконец‚ выведем на экран результаты вычислений⁚
pascal
writeln(‘Сумма чисел⁚ ‘‚ number1‚ ‘ ‘‚ number2‚ ‘ ‘‚ number3‚ ‘ ‘‚ sum);
writeln(‘Произведение чисел⁚ ‘‚ number1‚ ‘ * ‘‚ number2‚ ‘ * ‘‚ number3‚ ‘ ‘‚ product);
writeln(‘Среднее арифметическое чисел⁚ (‘‚ number1‚ ‘ ‘‚ number2‚ ‘ ‘‚ number3‚ ‘) / 3 ‘‚ average⁚0⁚6);

Вот и все!​ Полный код программы выглядит следующим образом⁚

pascal
program Calculator;

var
number1‚ number2‚ number3⁚ integer; // целые числа
sum‚ product‚ average⁚ real; // результаты вычислений
begin
// Запрашиваем у пользователя ввод трех чисел
writeln(‘Введите первое число⁚’);
readln(number1);

writeln(‘Введите второе число⁚’);
readln(number2);

writeln(‘Введите третье число⁚’);
readln(number3);

// Выполняем вычисления
sum ⁚ number1 number2 number3;
product ⁚ number1 * number2 * number3;
average ⁚ sum / 3;
writeln(‘Сумма чисел⁚ ‘‚ number1‚ ‘ ‘‚ number2‚ ‘ ‘‚ number3‚ ‘ ‘‚ sum);
writeln(‘Произведение чисел⁚ ‘‚ number1‚ ‘ * ‘‚ number2‚ ‘ * ‘‚ number3‚ ‘ ‘‚ product);
writeln(‘Среднее арифметическое чисел⁚ (‘‚ number1‚ ‘ ‘‚ number2‚ ‘ ‘‚ number3‚ ‘) / 3 ‘‚ average⁚0⁚6);
end․

Теперь‚ когда программа готова‚ можно запустить ее и ввести любые целые числа‚ чтобы узнать их сумму‚ произведение и среднее арифметическое․ Удачи в программировании!