Średnia artymetyczna

program srednia_z_trzech;
uses crt;
var a,b,c:integer;
su:integer;
sr:real;
begin
  clrscr;
  gotoxy(10,6);write('PROGRAM - SREDNIA ARTYTMETYCZNA -');
  gotoxy(10,8);write('Podaj trzy liczby a, b i c');
  gotoxy(10,10);write('a= ');read(a);
  gotoxy(10,11);write('b= ');read(b);
  gotoxy(10,12);write('c= ');read(c);
  su:=a+b+c;
  sr:=su/3;
  gotoxy(10,14);write('(',a,'+',b,'+',c,')/3 = ',sr:5:3);
  readkey;
end.

Uruchom program