Нужно написать программу в такое найдите сумму и произведение трех введенных с клавиатуры чисел! входные данные 1 2 3 выходные 5=6 р=6 надо

Var a,b,c: integer;
  begin 
 write('Введите три целых числа, разделяя их пробелом: ');
  readln(a,b,c);
    writeln('сумма=',a+b+c,' произведение=',a*b*c);
end.