Составить блок-схему и программу в паскале для решения : задать три числа и найти их среднее арифметическое

Var a,b,c:integer;

begin
readln(a);
readln(b);
readln(c);
writeln('Среднее арифметическое: ', (a+b+c)/3);
end.

Var c, a, b: integer;
begin
     readln(a, b, c);
     writeln((a + b + c) / 3);
end.