adică?
depinde din cîte note
var a, b, c : integer;
m : real;
Begin
Writeln('Introdu cele 3 note:');
Write('Prima notă: '); Readln(a);
Write('A doua notă: '); Readln(b);
Write('A treia notă: '); Readln(c);
m := (a + b + c) / 3;
Writeln('Media ta la matematică este: ', m);
Readkey;
End.