Создайте программу, которая подсчитает сколько из 10 случайных чисел, избранных на промежутке [0; 60] превышает 30, а для чисел, меньше 30 найдет сумму. Задача 2. Даны два целых числа а и b. Выведите все числа от а до b включительно, в порядке возрастания, если а

ДВЕ ЗАДАЧИ В ОДНОЙ

const N=10;

  var

  a:Array[1..N] of integer;

  i,k,sum,c,b:integer;

begin

  Randomize;

  k:=0;

  sum:=0;

  for i:=1 to N do begin

    a[i]:=random(61);

    if a[i]>30 then k:=k+1;

    if a[i]<30 then sum:=sum+a[i];

    write(a[i],' ');

  end;

  writeln;

  writeln(k,' чисел превышает 30');

  writeln('сумма чисел = ',sum);

  writeln;writeln;

   writeln('введите число a');

  readln(c);

  writeln('введите число b (b должно быть больше a)');

  readln(b);

  for i :=c to b do

    write(i,' ');

  readln;

end.