Помогите пж написать программу, которая вводит с клавиатуры натуральные числа не превышающие 30000 до тех пор, пока не будет введено число 0. В конце работы на экран выводятся: количество введенных чисел, их сумма, произведение, среднее значение, максимальное и минимальное числа.

Код на С++// Example program#include <bits/stdc++.h>using namespace std;int main(){  int mas[100], i, maxl = -1, minl = 30000, sum = 0, k = 0, pro = 1;int n = 1;while (n != 0) { cin >> n;   if (n != 0) {     k++; maxl = max(n, maxl); minl = min(n, minl); pro = pro * n; }  sum = sum + n;}cout << k << endl;cout << sum << endl;cout << pro << endl;cout << sum / k << endl;cout << maxl << endl;cout << minl << endl;  return 0;  }

Program n1;var a,sum,k,max,min: integer;p: real;beginreadln(a);max:=a;min:=a;p:=1;k:=0;sum:=0;while a<>0 dobegink:=k+1;sum:=sum+a;p:=p*a;if a>max then max:=a;if a<min then min:=a;readln(a);end;writeln('сумма: ',sum,'; кол-во: ',k,'; max=',max,'; min=',min,'; произв: ',p,'; срзнач: ',sum/k); end.