Задача по программированию 8 класс. Решите как положено через паскаль! Дано…

Uses crt; Var p1,p2,p22,k,p3,i: integer; b: array [1… 6] of integer; Begin Writeln ('введите трехзначное целое число -'); Readln (k); p1: =k div 100; p22: =k mod 100; p2: =p22 div 10; p3: =p22 mod 10; writeln ('p1=',p1,'p2=',p2,'p3=',p3); b[1]: =p1+p2*10+p3*100; b[2]: =p1+p3*10+p2*100; b[3]: =p2+p1*10+p3*100; b[4]: =p2+p3*10+p1*100; b[5]: =p3+p2*10+p1*100; b[6]: =p3+p1*10+p2*100; for i: =1 to 6 do writeln ('b[',i,']=',b); end.