На алгоритмы с ветвлением дано число. определить четное оно или нет хелп,плес

Язык программирования какой? ладно, напишу словами, надеюсь вы код оформите. пользователь вводит число, если оно делится без остачи на 2 - выводим, что оно чётное, если нет, то выводим что оно не чётное. функция деления по модулю на с-подобных языках "%", на других "mod". примеры: с++ #include < iostream> using namespace std; int main() {       int n;       cin > > n;       if (n%2==0) cout < < "this number is even";       else cout < < "it is not even number";       cin.get();       cin.get();       return 0; } pascal

program example;

    var n : integer;

begin

    readln(n);

    if n mod 2 = 0 then write('number is even') else write ('it is not even number');

    realdn

end.

1)     var   a: array[1..100]of real;   n,p,q,q1: real;   i: integer;     begin       for i: =1 to 100 do         begin           read(a[i]);           if a[i]> =0 then             begin               p: =p+a[i];               q: =q+1;             end;           if a[i]< 0 then           begin             n: =n+a[i];             q1: =q1+1;           end;       end;     writeln('positive: ',p/q);     writeln('negative: ',n/q1);   end. 2)           uses crt; var n: real; i: integer;   begin   n: =0.5;   write('  pounds','            kg');   writeln;     for i: =1 to 20 do       begin       write ('      ',n,'            ', n*0.4);       n: =n+0.5;       writeln;       end;       end. 3)   uses crt; var x: integer;   begin   write(' x','              y');   writeln;     for x: =-5 to 5 do     begin           write(x,'            ');           write(5*(x**x)+1);           writeln;     end;     end.