Вычислить значение функции y=sinx от 0 до 1 с шагом 0, 1. результат в таблице

Program slovo; var a,c: string; {описание строковой переменной}        i: integer; begin read(a); write('первоначальное слово:   ',a); c: =a;   {"копирование" значения длинны строки(т. к. оно в дальнейшем быдет изменено)} i: =length(a); {присвоение переменной i значения длинны строки} a[1]: =a[i];   {присвоение первому значению значение последнего} a[i]: =c[1];   {присвоение последнеe значению значение первого} write('полученное слово:   ',a); end.

program massiv;

uses crt;

var a: array[1..5] of integer;

 

        i,n: integer;  

begin 

      clrscr;

      n: =0;    

 

    write('исходный массив: ');  

    for i: =1 to 5 do

          begin 

          a[i]: =random(101);  

 

          if (a[i] mod 2)=0 then inc(n);

          write(a[i]: 4);

      end;

writeln;

writeln('количество чётных элементов=',n);

    readkey;  

 

end.