Pascal que lea 4 datos, Calculo de producto, suma y media aritmética.

PROGRAM SUMA4;  
USES WINCRT;  
VAR a,b,c,d:REAL;  
VAR producto,suma,media:REAL; 
BEGIN  
ClrScr;  
WRITELN('Introduzca 4 datos para calcular las soluciones:');  
WRITELN ('');  
WRITE ('Introduzca a: ');  
READLN (a);  
WRITE ('Introduzca b: ');  
READLN (b);  
WRITE ('Introduzca c: ');  
READLN (c);  
WRITE ('Introduzca d: ');  
READLN (d);  
WRITELN ('');  
producto:= a * b * c * d;  
suma:= a + b + c + d;  
media:= suma / 2;  
WRITELN ('El valor del producto de los numeros es: ',producto:10:2);  
WRITELN ('El valor de la suma de los numeros es: ',suma:10:2);  
WRITELN ('El valor de la media de los numero ses: ',media:10:2)
END.