1. Написать программу для определения количества двузначных чисел в диапазоне от А до B, которые при делении на 6 дают остаток 2. 2. Найти сумму двузначных чисел в диапазоне от А до B, в которых первая цифра ровно в 2 раза больше второй.

1) var a,b,x:integer;
begin
write(A: );
readln(a);
write(B: );
readln(b);
for x:=a to b do
begin
if (x>=10) and (xif x mod 6 = 2 then
write(x, );
end;
end.



2) var a,b,x,s :integer;
begin
write(A: );
readln(a);
write(B: );
readln(b);
for x:=a to b do
if (x=21) or (x=42) or (x=63) or (x=84) then s:=s+x;
write(s);
end.