Exemplo Medias..

Program pzim;

var
media, n1,n2,n3:real;

Begin

writeln ('digite n1');

readln(n1);

writeln('digite n2');

readln(n2);
writeln('digite n3');

readln(n3);

media:=(n1+n2+n3) /3;
writeln('media=',media,3:3);
readln;

end.