Дан массив из 20 целых чисел, все элементы меньше 10 заменить на 0, и вывести получившиеся массив

Program qq; uses crt; var a: array [1..20] of integer; i: integer; begin for i: =1 to 20 do                              readln (a[i]); //ввод массива. не указали откуда дан массив, так что введем его через enter for i: =1 to 20 do                            if a[i]< 10 then                                         a[i]: =0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль for i: =1 to 20 do                            write (a[i], ' '); //вывод массива на экран end.

Следует заметить, что выражение b& (avb) можно . оно эквивалентно значению b, поскольку оно может быть равно 1 только если b = 1 и avb = 1, которое равно 1 всегда при b = 1. а выражение a& (bvb_) эквивалентно значению a, поскольку bvb_ = 1. таким образом, таблица истинности будет выглядеть так: a b b& (avb) a& (bvb_) 0 0        0            0 0 1         1              0 1 0        0            1 1 1        1            1

1) a) не может, потому что переменные должны всегда начинаться с буквы b) может c) не может, слова могут  быть разделены только знаком "_",не пробелом! d) может 2) присваивание, обозначается знаком "=" например: sum = 0; 3)  4 строка - не red, а read пропущена трока между 2 и 3  строчкой - это begin 4) var       s, p, a, b: integer begin      write('введите сторону а:   ');       readln(a);       write('введите сторону b:   ');       readln(b);             s = a * b; {нахидим площадь}      p = (a + b) * 2; {находим периметр}      writeln('площадь =  ', s, ', периметр =  ', p); end. 5) var       number, {трехзначное число}      num1, {первая крайняя  цифра}      num2, {вотрая крайняя  цифра}      : integer; begin      write('введите число');       readln(number);           num1 = number mod 10;       num2 = number div 100;             writeln('сумма крайних цифр числа  ', number, ' =  ', num1 + num2); end.