Одномерные массивы - Pascal ABC (12674)

Формулировка задачи:

задание задать a1 и a2 , вычислить систему уравнений до n повторения Правильно ли я сделал?

                    Листинг программы
                
 
                        
                          
                    
uses crt;
var i,a1,a2,s:integer;
c:real;
mas:array [1..100] of real;
begin
write('Введите а1 ');
readln(mas[1]);
write('Введите а2 ');
readln(mas[2]);
 write('Количество итераций  ');
readln(s);
for i:=1 to s do begin
if i mod 2 = 0 then begin
writeln(sin((pi*mas[i+1])/2):10:5);
 
end
else begin
writeln(cos((pi*mas[i])/2):10:5) ;
 
end;
end;
end.

Решение задачи: «Одномерные массивы»

Листинг программы

var a1,a2,a,s:real;
    n,k:integer;
begin
write('Введите а1 ');
readln(a1);
write('Введите а2 ');
readln(a2);
write('Количество итераций n>2 n=');
readln(n);
s:=a1+a2;
for k:=3 to n do
 begin
  if odd(k) then a:=cos(pi*a1/2)
  else a:=sin(pi*a2/2);
  a1:=a2;
  a2:=a;
 end;
write('Сумма=',s:0:6)
end.

Объяснение кода листинга программы

В первой строке объявляются переменные a1, a2, a и s типа real.
Во второй и третьей строках считываются значения переменных a1 и a2.
В четвертой строке считывается количество итераций n.
В пятой строке переменной s присваивается сумма a1 и a2.
В шестой строке начинается цикл for, который выполняется от 3 до n включительно.
В каждой итерации цикла проверяется, является ли k нечетным числом.
Если k нечетное, то переменной a присваивается значение cos(pi*a1/2).
Если k четное, то переменной a присваивается значение sin(pi*a2/2).
После завершения итерации значения a1 и a2 обновляются таким образом, чтобы они были равны a.
В конце цикла значение переменной s выводится на экран.