Напишите плиз прогу срочно (на Паскале) которая из 2-хзначных чисел выводит такие,…

Program Pr1; uses crt; var i,n,a,b: integer; mas: array[10… 99] of integer; beginfor i: =10 to 99 do mas[i]: =i div 10+i mod 10; for i: =10 to 98 dofor a: =i+1 to 99 do if mas[i]=mas[a] then writeln (a,',i); end.