Pascal .написать программу которая вычисляет кол-во 2 значных чисел от 10 до 99 где первая цифра = второй

Var a,b:integer;beginfor a:=10 to 99 dobeginif (a div 10) = (a mod 10) thenbeginb:=b+1;end;end;writeln(b);end.