Составьте программу, запрашивающую у пользователя K целых чисел и вычисляющую произведение положительных.
Пример работы:
Окно вывода
Сколько чисел обработать? 5
Введите число 2
Введите число
Введите число
Введите число
Введите число
Произведение положительных чисел из 5 составляет 24
памагите а то я уже сижу рыдать начинаю (через паскаль надо сделать...)

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Сколько чисел обработать?');  var s:=1;  loop n do begin    var k:=ReadInteger('Введите число');    if k>0 then s*=k    end;  Writeln('Произведение положительных чисел из ',n,' составляет ',s)end.ПримерСколько чисел обработать? 5Введите число 7Введите число -4Введите число 0Введите число 9Введите число -2Произведение положительных чисел из 5 составляет 63