Найдите сумму и произведение трех чисел, вводимых с клавиатуры

Код PascalABC: program Z1; uses crt; vara,b,c,r,r1: real; beginwriteln ('Введите 1, 2 и 3 числа '); readln (a,b,c); r: =a+b+c; r1: =a*b*c; writeln ('Сумма чисел: ',r); writeln ('Произведение чисел ',r1); end.