Код замка чемодана состоит из четырех цифр, последовательность цифр упорядоченная. Найдите количество всех таких кодов, обладающих хотя бы одним из двух свойств:
1) последняя цифра кода — 8; 2) последовательность цифр является неубывающей

  v=331+0,6*(-35)=310 м/c

v=331+0,6*30=349 м/c

var a: array[1..10] of integer;

i,s: integer;

begin

  randomize;

  for i: = 1 to 10 do begin

      a[i]: = random(100);

      s: =s+a[i];

  end;

  writeln(s);

end.

var a: array[1..10] of integer;

i,mk,pk,s,p: integer;

begin

  randomize;

  p: =1;

  for i: = 1 to 10 do begin

      a[i]: = random(30+10)-10;

      if a[i]> =0 then begin

          pk: =pk+1;

          s: =s+a[i];

      end

      else begin

          mk: =mk+1;

          p: =p*a[i];

      end;

  end;

  writeln(pk,s,mk,p);

end.

за синтаксис не бить

дано а1,а2,б1,б2 - целые

начало

  ввод а1,а2,б1,б2

  a1=a1*б2+б1*а2

  а2=а2*б2

  вывод а1,а2

конец

б ,в, г