Помогите пожалуйста, срочно надо.
Заранее большое спасибо)
1) Определите и выведите на экран количество четырехзначных чисел, которые делятся без остатка одновременно на 5 и 11.
2) Найдите и выведите на экран все двузначные числа, у которых при умножения на 2 сумма цифр увеличивается на 5.

1)var a,b:integer;beginb:=0;for a:=1000 to 9999 dobeginif (a mod 5=0) and(a mod 11=0)then b:=b+1;end;writeln(b);end.2)var a,b:integer;beginfor a:=10 to 99 dobeginif 2*a<100 thenbeginif (a mod 10 + a div 10+5)=(2*a mod 10 +2*a div 10) then writeln(a);end;if 2*a>100 thenbeginb:= 2*a div 10;if (a mod 10 + a div 10+5)=(2*a mod 10+ b mod 10+ b div 10)then writeln(a);end;end;end.