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