С клавиатуры вводится натуральное число К. затем последовательно вводятся К чисел с плавающей точкой,не превышающей 10. Найти сумму этих чисел и наименьшее из них
программа на паскале

var g:array[1..100] of integer;var k,i:integer;min,s:integer;beginreadln(k);for i:=1 to k dobeginreadln(g[i]);write(g[i]:3);end;writeln;s:=0; min:=10;for i:=1 to k dos:=s+g[i];for i:=1 to k dobeginif (min<g[i]) thenmin:=g[i];end;writeln(s);writeln(g[i]);end.

var k,i: integer;    b,s,min: real;begin  write('целое число: ');  readln(k);  s:=0; min:=10;  for i:=1 to k do  begin    write('число: ',i,'  ');  readln(b);    while b>10 do    begin      writeln('число должно быть меньше 10');      write('повторите ввод:  ');      readln(b);    end;    if b<min then min:=b;    s:=s+b;  end;  writeln('сумма чисел = ',s);  writeln('наименьшее число = ',min);end.