Программисты прошу помощи.⁠⁠

Просьба перевести с си на паскаль.

# include
#include
#include
#include
#include
#include
#pragma hdrstop
//---------------------------------------------------------------------------
#pragma argsused
#define n 5
int main(void) {
float A[n];
int i,K=0;
int P=1;
for (i=0;i0) && (sin(A[i])