Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  program 1
Language: PASCAL
Code:
program ex1;
uses crt;
var n1, n2, m: real;

   begin
 clrscr;
 write('Informe um numero: ');
 readln(n1);
 write('Informe outro numero: ');
 readln(n2);
 m:=(n1+n2)/2;
 writeln('A media ‚: ',m:0:2);
 readkey;
end.  
Comments: