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

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