Program isperfectnumber(input,output); var i, n, s: integer; begin write('n = '); readln(n); s : = 0; for i : = 1 to n do if n mod i = 0 then s : = s + i ; writeln if s - n = n then write('äà') else write('íåò') writeln end. , почему программа не правильная?
1)Зачем писать WRITELN в 13 и 19 строчках?
2)Тебя не учили заключать в begin,если 2 и более операторов if