Составить программу. Продавец пирожков получает сдельную зар.плату. С продажи каждого пирожка продавец получает а рублей. Продавцу полагается премия 300 рублей, если но продал больше 150 пирожков. Вычислите дневной заработок продавца, продающего k пирожков в день. На экран выведите информацию: Начислено за продажи: Начислено премии Выдать

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandomReal(ReadInteger('Длина вектора А='),-50,50); a.Println;
  var b:=ArrRandomReal(ReadInteger('Длина вектора B='),-50,50); b.Println;
  var c:=(a.Where(x->x>0).Count)>(b.Where(x->x>0).Count);
  Writeln(c)
end.

Пример
Длина вектора А= 5
11.2705506669686 48.3210324301948 42.773549674439 43.1555606858598 -18.5803525469174
Длина вектора B= 6
15.3481486557741 -19.0451312200376 -19.2453642232555 -11.3293506025008 48.204669308944 32.6231040445264
True

      численность           население через год   1   40000                             42000   2   42000                             44100   3   44100                             46305 переменная 1 = 3 переменная 2 =  46305