Написать программу, которая вводит с клавиатуры последовательность из 10 вещественных чисел, считает сумму и среднее арифметическое этих чисел. нужно составить блок-схему для этой .

Pascal

var
   a,s, r : real;
   i : integer;

begin
 for i := 1 to 10 do
 begin
 readln (a);
 s := s +a;
 end;
r := s/r;
writeln ('sr=',r:3:2);
writeln ('s=',s:3:2);

end.

Var
 i:integer;  
 a,sum,s:real; 
begin    
for i:=1 to 10 do     
   begin         
    read(a);
    sum:=sum+a;      
   end;    
 write('Сумма: ',sum);   
 s:=s/10;     
write('Cреднее арифметическое: ',s);
 end.