Решить pascal. только не с интернета, они там не правильные. 1. дано целое число n и набор из n вещественных чисел. вывести сумму и произведение чисел из данного набора 2.дано целое число k и набор ненулевых целых чисел; признак его завершения — число 0. вывести количество чисел в наборе, меньших k.

1. 
var
  N, i: integer;
  a, sum, mul: real;

begin
  sum := 0;
  mul := 1;
  readln(N);
  for i := 1 to N do
  begin
    readln(a);
    sum := sum + a;
    mul := mul * a;
  end;
  writeln('Сумма = ', sum);
  writeln('Произведение = ', mul)
end.

2.
var
  K, less: integer;
  a: real;

begin
  less := 0;
  readln(K);
  readln(a);
  while a <> 0 do
  begin
    if a < K then
      inc(less);
    readln(a);
  end;
  writeln(less)
end.