program prome04;
uses crt;
var
a,b,c,suma:integer;
pro:real;
{Programa para realizar el Promedio de tres números enteros
 introducido por el teclado. Por: Rafael Aquino }
begin
     clrscr;
     writeln (' Promedio de números enteros');
     writeln;
     write (' Introduzca primer número ');
     read (a);
     write (' Introduzca segundo número ');
     read (b);
     write (' Introduzca tercer número ');
     read (c);
     suma:= a + b + c;
     pro:= suma/3;
     writeln;
     writeln ('El promedio de los tres números es: ',pro:0:2 );
     readkey;
end.