Расставьте строчки в правильном порядке

• var N,x,i : integer;
• BEGIN
• writeln\('введите количество учеников в классе:'\);
• readln\(N\);
• For i:=1 to N do
• begin
• writeln\('введите оценку ’,i,’ ученика:'\);
• readln\(x\);
• if x>3 then writeln\('хорошо'\) else writeln\('плохо'\);
• end;
• END.