Подсчитать произведение всех четных чисел от 1 до n (паскаль)

Program test; var a1, a2, d, k, max, tmp: integer; sum: real; rule: boolean; begin writeln('введите а1 и а2'); readl(a1, a2); k : = 2; d : = a2 - a1; rule : = true; while (rule = true) do begin k : = k + 1; tmp : = a1 + k * d; if (tmp < 50) then max : = tmp else rule : = false; end; sum : = (a1 + max) / 2 * k; writeln(); writeln('сумма = ', sum); end. программа будет работать только для арифметических прогрессий, например, таких, как последовательность из . вводить нужно 2 целых числа (первые два члена прогрессии) через пробел (в вашем случае 4 и 7)

11) к системному 12)  операционная система – это набор программ, обеспечивающий организацию вычислительного процесса на пк.  13)основные ос: 1.                        увеличение пропускной способности пк за счет организации непрерывной обработки потока с автоматическим переходом от одной к другой и эффективного распределения ресурсов пк по нескольким . 2.                        уменьшение времени реакции системы на запросы пользователей и времени на формирование ответов пользователям от пк. 3.                        работы разработчиков программных средств и обслуживающего персонала за счет предоставления им значительного количества языков программирования и разнообразных сервисных программ.   операционные системы предназначены для выполнения следующих функций: 1.          данными. 2.          . 3.      связь с пользователем.