Помогите пж написать программку, которая вводит с клавиатуры натуральные числа не

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

Код на С++


// Example programinclude lt;bits/stdc++.hgt;
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 gt;gt; n;   if (n != 0)      k++; maxl = max(n, maxl); minl = min(n, minl); pro = pro * n;   sum = sum + n;
cout lt;lt; k lt;lt; endl;cout lt;lt; sum lt;lt; endl;cout lt;lt; pro lt;lt; endl;cout lt;lt; sum / k lt;lt; endl;cout lt;lt; maxl lt;lt; endl;cout lt;lt; minl lt;lt; endl;  return 0;