Pascal/Turbo Pascal - Quien me ayuda a resolver un ejercicio no entiendo

Quien me pudiera ayudar a resolver este programa de pascal urgente por favor la maestra necesita sacar la calificacion de 3 periodos ese ejercicio lo necesito resolver con un programa de suma que lleve decimales

{No entiendo bien lo que quiere pero para sumar decimales seria algo asín]

uses
crt;
var
dato1, dato2, dato3 : real; {variables de valores decimales}

function suma(d1, d2, d3 : real) : real; {Funcion sumar 3 valores}
begin
suma := (d1 + d2 + d3);
end;

begin
clrscr;
write('Entre valor 1 : ');
readln(dato1);
write('Entre valor2 : '); {entrada de valores}
readln(dato2);
write('Entre valor 3 : ');
readln(dato3);
writeln;
writeln(suma(dato1,dato2,dato3):8:2); {presentacion}
readln;
end.