Паскаль. Найти среднее арифметическое трех целояисленных переменных.

varS,i,a:integer;begin   for i:=1 to 3 do      begin         readln(a);         s:=s+a;      end;writeln('Srednee = ',s/3);end.