Помогите решить 3 задачки любые, кроме дополнительных

Можешь на коде бейсика сделать?

Нет. Ухожу в театр.

1.var a,b,c:integer;beginwrite('Введите положительное двузначное число: ');readln(a);b:=a div 10;c:= a mod 10;writeln('Сумма цифр числа ',a, ' равна ', b + c)end.2.var a,b,i,s,k:integer;beginwrite('Введите границы промежутка: ');readln(a,b);s:=0;k:=a;for i:=k to b dobeginif k mod 3 = 0 then s:=s+k;k:=k+1end;writeln('Сумма целых положительных чисел кратных 3 от ', a, ' до ',b, ' равна ',s)end.3.var a,b,c,i,k,p:integer;begink:=0;p:=100;for i:=p to 999 dobegina:= i div 100;b:= i mod 100 div 10;c:= i mod 10;if (a+b+c) mod 5 = 0 then k:=k+1;p:= p+1;end;writeln('Количество положительных трёхзначных чисел, сумма цифр которых кратна 5 равно ',k);readln;end.4.var a,b,c,i,k,p:integer;begink:=0;p:=10;for i:=p to 99 dobegina:= i div 10;b:= i mod 10;if (((a+b) mod 3 = 0) and (b=4)) or (((a+b) mod 3 = 0) and (b=8)) then writeln(i);p:= p+1;endend.