Модуль 3,задание 6

Program primer;
var s,p:real; n,I,j:integer;
begin
write(‘n=’);readln(n);
if n mod 2<>0 then writeln(‘некорректные данные’)
else for i:=1 to n do
if I mod 2=0 then
begin p:=1;
for j:=1 to i do
p:=p*j;
s:=s+p;
end;
writheln(‘s=’,s:5:2);
end.

Program- служебное слово, которое определяет название программы.
primer- название программы
var - раздел описании переменных
s,p,n,I,j- индификаторы переменных - это символическое имя, определенного программного объекта, представляют собой любую последовательность символов(не более 62) начинается обязательно с буквы.
real, integer - типы переменных
begin - указатель на начало программы
write(‘n=’) - оператор вывода, выводит на экран сообщение заключено в апострофы
readln(n) - оператор ввода, считывает из потока данные и запоминает их в переменную n
if <условие> then <операторы> else <операторы> - условный оператор, если значение выражения в скобках истинно то выполняется блок операторов, стоящих после служебного слова then, а если ложно то выполняется блок операторов стоящих после else, часть else может отсутствовать, т.е. является не обязательной.
mod- функция позволяющая вычислить остаток от целочисленного деления одного числа на другое в нашем случае n на 2.
for j:=1 to i do - простой цикл, в котором будет выполняться действие i раз, описанное после служебного слова do
p:=p*j; s:=s+p; - в выражениях используется оператор присваивания := , которые присвоит некоторой переменной значение выражения справа от оператора
begin p:=1;
for j:=1 to i do
p:=p*j;
s:=s+p;
end; - это блок операторов заключенных в операторные скобки begin и end
writheln(‘s=’,s:5:2);- оператор вывода, выведет на экран текстовое сообщение и значение переменной s в соответствии с указанным форматом вывода вещественного числа
end. - указатель на то что программа окончена.