Составить программу "является ли введённое число чётным? " надо

Var n: integer; begin       write('введите число');     read(n); if n mod 2=0 then write('данное число четное')                     else write('данное число не явл четным'); end.

            const n=4; var x: array [1..n,1..n] of integer; s,i,j: integer; begin    randomize;       for i: =1 to n do begin          for j: =1 to n do begin            x[i,j] : = random(100);             write(x[i,j]: 6);         end;         writeln;       end; s: =0; for i: =1 to n do for j: =1 to n do if i< =j then   s: =s+x[i,j]; writeln('s=',s); end.

Вбольшинстве универсальных языков программирования оператор выбора следует использовать в тех случаях, когда в алгоритме имеется несколько веток и выбор той или иной ветки зависит от конкретного значения (или набора значений) некоторой переменной, называемой также переключателем. это в равной степени относится и к оператору case в паскале, и к оператору switch в с/с++. в языках семейства basic/vb оператор выбора select case позволяет в качестве набора значений задавать не только значения или их наборы, но также и логические выражения, что существенно раздвигает границы использования оператора выбора. но во всех случаях вычисление значений производится для одной единственной переменной - переключателя. но бывают и исключения. так, оператор выбора во входном языке субд семейства xbase (например, vfp), позволяет в каждой ветке писать не связанные с предыдущими ветками логические выражения, что дает возможность компактно записывать сложнейшие наборы условий.