1.Дана цифра А. Найти все двузначные числа в которых встречается эта цифра.
2.Вывести на экран все двузначные числа сумма цифр которых делится на 5.
3.Найти среднее арифметическое чисел в промежутке от А до В.

спс

Спасибо большое :)))))))))))))))))))))))))))))))))))))DDDDDDDDDDD

1)var a,i :integer;beginwrite('a = '); readln(a);for i:=10 to 99 do if (i mod 10 = a) or (i div 10 =a) then write(i,'  ');end.2)var i :integer;beginfor i:=10 to 99 do if (i mod 10 + i div 10) mod 5 =0 then write(i,'  ');end.3)var a,b,i,sum:integer;beginwrite('a = ');readln(a);write('b = ');readln(b);sum:=0;for i:=a to b do sum:=sum+i;writeln('Ср. арифм. = ', sum/(b-a+1));end.