Сообщение от interacia

// Определить среднюю квадратичную скорость молекул газа,
// находящегося в сосуде емкостью 2л под давлением 200кПА.
// Масса газа 0.3г.
program Series8;
var
Sred:real;
i:integer;
a:real; // скорость одной малекулы.
begin
i:=-1;
Sred:=0;
Writeln('Введите скорости всех молекул газа');
Writeln('Окончанием ввода будет отрицательное значение');
a:=0;
While a>=0 do
begin
inc(i);
Sred:=Sred+sqr(a);
Read(a);
end;
Writeln('Cредне квадратичная скорость молекул газа = ',sqrt(Sred/i));
end.