Составить программы в паскале abc,используя цикл while. : 1.вычислить сумму последовательности положительных чисел,введенных с клавиатуры.(ввод оканчивается,как только введен 0). 2.вычислить среднее арифметическое последовательности положительных чисел,введенных с клавиатуры.(ввод оканчивается,как только введен 0).
program proba;
var x, y: real;
begin
x:=- 2;
while x<=2 do
begin
y:=sqr(-2.4*x)+5*x-3;
writeln ('y=', y);
x:=x+0.5;
end;
readln;
end.