Calcular nota final

program nombre;
uses wincrt;
var
NF,n1,n2,n3,n4,final:real;
begin
writeln('ingrese n1');
readln(n1);
writeln('ingrese n2');
readln(n2);
writeln('ingrese n3');
readln(n3);
writeln('ingrese n4');
readln(n4);
NF:=(n1+n2+n3+n4)/4;
final:=(NF*20)/200;
writeln('el resultado es',NF:5:2);
writeln('el resultado final',final:5:2);
end.