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 ????