Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program media; program
- var p1, p2, m : real var real;
- begin
- write('Primeira nota? ');
- readln(p1);
- write('Segunda nota? ');
- readln(p2);
- m := (p1+p2)/2;
- writeln('A média é ', m:0:1);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement