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

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