составить программу которая будет вычислять сумму разность и творенье трёх чисел.безотлагательно

Ответ:

Разъясненье:

program kalk;

var

a, b, c :integer;

begin

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

readln(a);

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

readln(b);

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

readln(c);

writeln('Cумма 3-х чисел одинакова',a+b+c);

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

writeln('Творенье 3-х чисел одинаково',a*b*c);

end.

Есть вариант поставить заместо:

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

readln(a);

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

readln(b);

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

readln(c);

поставить так:

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

readln(a, b, c);