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

// pascalabc.net 3.2, сборка 1344 от 22.11.2016 // внимание! в более ранних версиях программа работать не будет! begin   var d: =matrrandom(4,4,-20,20);   writeln('исходный массив'); d.println(4);   var s: =d[0,0];   for var i: =1 to 3 do begin d[i,i]: =d[i,0]; s+=d[i,i] end;   writeln('полученный массив'); d.println(4);   writeln('сумма на главной диагонали ',s) end. пример исходный массив   14    8 -12  12   15  -9 -16  -6   18  -7    7    5   -7 -12 -10 -14 полученный массив   14    8 -12  12   15  15 -16  -6   18  -7  18    5   -7 -12 -10  -7 сумма на главной диагонали 40

Program llllll; var a: array [-10..10] of integer; n, i, b, c : integer; begin       writeln('введите количество чисел');       readln(n);       b: =0;       for i : = 1 to n do               readln(a[i]);       b: =0;       c: =1;       for i : = 1 to n do       begin               if a[i] mod 2 = 0 then                       b: =b+a[i]               else                       c: =c*a[i]       end;       writeln('это произведение ' , c);       writeln('это сумма ' , b); end.