Задача 2. Ввести три числа, найти их сумму, разность и среднее арифметическое.В паскаль ABC.

Предыдущий
вопрос Следующий
вопрос

Program task2;
Var
a, b, c, sum, diff, average: Real;
Begin
Write('Enter the first number: ');
Readln(a);
Write('Enter the second number: ');
Readln(b);
Write('Enter the third number: ');
Readln(c);

sum := a + b + c;
diff := a - b - c;
average := sum / 3;

Writeln('Sum: ', sum:0:2);
Writeln('Difference: ', diff:0:2);
Writeln('Average: ', average:0:2);
End.