Напишите пожалуйста программу с помощью Паскаля: Дана последовательность 5 9 13 17 21…

var sum, i, s: integer; //обыявляем необходимые переменные//sum — сумма, i — кол-во слогаемых, s — само слогаемоеbegin //начало sum: =0; i: =1; s: =5; //первое слогаемое=5 repeat sum: =sum+s; //к сумме прибавляем слагаемое s: =s+4; //увеличиваем слогаемое i: =i+1; //увеличиваем кол-во слогаемых until (sum=324); //выход когда сумма равна 324 writeln ('Слогаемых: '); // выводим кол-во слогаемых write (i); end. //конец