Главная Программа Материалы - Конспекты - Задачи Электрожурнал Успеваемость Преподавателям . Нахождение сумм всех целых чисел и их квадратов от 1 до N *) . ... i, n: integer; . ... begin . ... begin (* Начало составного оператора*) . ... end; (* Конец составного оператора*) . writeln (' Сумма целых чисел от 1 до',n:3,' равна: ',s1:6); . writeln; (* Пропуск пустой строки при печати *) . writeln (' Сумма квадратов этих чисел равна:', s2:6); . end. ... Integer . ... write , writeln . ...