1) вариант потомучто 2 это код
var
z: integer;
begin
randomize;
z:=random (1000) -500;
writeln (z);
if z mod 3=0 then writeln (' число делится на 3')
else writeln (' число не делится на 3')
end.
Program n1;
//Название программы
var i,n,sum: integer;
//Объявление переменных
begin
//Начало
readln(n);
//Ввод n (количество чисел) и и переход на следущую строку
sum:=0;
//Присваивание переменной sum знаяения 0 (изначально сумма равна 0)
for i:=1 to n do sum:=sum+2*i;
//В цикле от 1 до n к переменной
//sum прибавляем 2*i, т.е. 1*2+2*2+3*2+..n*2=2+4+6+..+2n;
writeln(sum);
//Ввод sum (cумма первых n целых положительных четных чисел)
//и и переход на следущую строку
end.
//Конец
00 - О
01 - Л
10 - В
110 - С
<span>1110 - Е
</span><span>1111 - Й
Ответ: ВЕСЛОВЕСЛО</span>