Помогите решить задачки 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.