Даны 3 числа x y и z. Найти их сумму разность и производителя

program zz1;

var a, b, c, s, p, r:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (c);

s:=a + b + c; / / вычисляем

r:=a - b - c;

p:=a * b * c;

writeln (' сумма чисел = ', s);

writeln (' разность чисел = ', r); / / выводим ответ

writeln (' произведение чисел = ', p);

end.