9 класс. Паскаль. тема "вложенные циклы"
Var n, i : integer; begin readln(n); for i := 1 to n do if n mod i = 0 then writeln(i+'*'+(n div i)+'='+n); end.
Если число должно быть принципиально - а, то поменияй все числа n на а, я этого не заметил