Ответ:

Объяснение:

program kalk;

var

a, b, c :integer;

begin

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

readln(a);

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

readln(b);

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

readln(c);

writeln('Cумма трех чисел равна',a+b+c);

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

writeln('Произведение трех чисел равно',a*b*c);

end.

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

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

readln(a);

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

readln(b);

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

readln(c);

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

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

readln(a, b, c);