Запишите условные операторы, с которых можно выполнить следующие действия: а) проверить, является ли число а четным; б) от большего из заданных чисел a i b отнять меньше; в) проверить, есть ли среди чисел a, b, c уровне.​

  var i,n: integer; begin  writeln(', веедите натуральное число не превосходящее 1000');   readln(n);   writeln('входное число=',n);   for i: =0 to (n-1) do write(i,' ');   end. пример работы:   , веедите натуральное число не превосходящее 1000 5 входное число=5 0 1 2 3 4  p.s.если в условии от 1-го, а не от нуля, for i: =0 to (n-1) do write(i,' '); замени на for i: =1 to (n-1) do write(i,' '); лишняя информация, если тебе не нравится информатика: на сколько я понял, ты не мог понять как вывести сначала число 5. в моей программе это делает оператор writeln(n); именно writeln, а не write. почему? потому что writeln произошло от слова line - линия, оно занимает целую строку. а write мастит все в одну строку. если нужно будет что-то рассказать и это будет в моих силах, я с радостью любому желающему.

Первое: program qw;       var a,b,h,s: real; begin;       writeln('введите длину оснований и высоту: ');       read(a,b,h);       s: =(a+b)*h/2;       write('площадь трапеции равна ', s); end. второе: program qe;       var a,b,s: real; begin;       write('введите катеты треугольника: ');       read(a,b);       s: =0.5*a*b;       write('площадь треугольника равна ',s); end.