Напишите программу для паскаль авс. вот : даны 4 числа a ,b, с ,d найдите сумму и произведение этих чисел

Var
   a,b,c,d:real;
Begin
Write('Введите четыре числа: ');ReadLn(a,b,c,d);
WriteLn('Сумма этих чисел: ',a+b+c+d);
WriteLn('Произведение этих чисел: ',a*b*c*d);
End.