ПОМОГИТЕ ПОЖАЛУЙСТА !!!! НАПИШИТЕ ПРОГРАММУ ДЛЯ ПАСКАЛЬ АВС. ВОТ ЗАДАЧА :Даны 4 числа a ,b, с ,d найдите сумму и произведение этих чисел

спасибо

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