Question

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

Answer 1

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

Answer 2

спасибо