Паскаль составьте программу определяющую какие из 4 заданных чисел делятся на 5

Var a,b,c,d: integer; begin   write('введите 4числа:   '); readln(a,b,c,d);   if (a mod   5 =  0 ) then writeln(a,' делится на 5 без остатка');   if (b mod   5 =  0 ) then writeln(b,' делится на 5 без остатка');   if (c mod   5 =  0 ) then writeln(c,' делится на 5 без остатка');   if (d mod   5 =  0 ) then writeln(d,' делится на 5 без остатка'); end.

Program x; uses crt; var mas: array[1..4] of integer; i: integer; begin clrscr; writeln('введите 4 числа  '')   ; for i: =1 to 4 do begin readln(mas[i]);       end;       for i: =1 to 4 do      if(mas[i] mod 5=0) then begin       writeln('числа без остатка  ', mas[i]); endelse if (mas[i] mod 5< > 0)  then   writeln('числа с остатком  ', mas[i]) ;       readln;       end.

1001001001 (двоичн.) разделим исходный код на группы по 3 разряда. 1001001001   = 001 001 001 001  затем заменяем каждую группу на код из таблицы. получаем число: 001 001 001 001    = 1111 (это в восьмиричн.) разделим исходный код на группы по 4 разряда. 10010010012   = 0010 0100 1001  2 затем заменяем каждую группу на код из таблицы.получаем число: 0010 0100 1001    = 249 (это в шестнадцатирич.)  для перевода в десятич.  необходимо умножить разряд числа на соответствующую ему степень разряда (обозначу степень данным - ^ символом) 1001001001 = 2^9*1 + 2^8*0 + 2^7*0 + 2^6*1 + 2^5*0 + 2^4*0 + 2^3*1 + 2^2*0 + 2^1*0 + 2^0 *1 = 512 + 0 + 0 + 64 + 0 + 0 + 8 + 0 + 0 + 1 = 585 (это в десятич.) таблицы для перевода находятся в свободном доступе в инете

1) var i: integer; a: array[1..15] of integer; begin randomize; for i: =1 to 15 do a[i]: = random(10)-10; for i: =1 to 15 do write(' ',a[i]); writeln(' '); for i: =1 to 15 do if a[i]  mod 2=0 then a[i]: =100; for i: =1 to 15 do write(a[i],' '); end. 2) var i: integer; a: array[1..15] of integer; begin randomize; for i: =1 to 15 do a[i]: =random(10)-10; for i: =1 to 15 do write(' ',a[i]); writeln(' '); for i: =1 to 15 do a[i]: =a[i]-2*a[i]; for i: =1 to 15 do write(a[i],' '); end.