Напишите, пожалуйста программу на языке раскаль Pascal ABC

 Program P1;  

uses crt;  

const a=3; 

      n=10;  

type mas=array [1..n] of integer;  

var i, np, sum, sumk: integer;  

    m: mas;  

begin  

clrscr;  

np:=0;  

sum:=0;  

sumk:=0; 

writeln ('Введите с клавиатуры по очереди ', n, ' целых чисел для последовательности. После ввода каждого числа нажимайте клавишу Enter.');  

for i:=1 to n do begin  

write ('Введите ', i, '-е число: ');  

readln (m[i]);  

end;  

write ('Была введена последовательность:');  

for i:=1 to n do begin  

write (' ', m[i]);  

end;  

writeln (' ');  

for i:=1 to n do begin  

sum:=sum+m[i];  

if m[i]>0 then np:=np+1;  

if m[i] mod a=0 then sumk:=sumk+m[i];  

end;  

writeln ('В этой последовательности:');  

writeln ('Сумма всех введенных чисел составляет: ', sum);  

writeln ('Количество положительных (>0) чисел: ', np);  

writeln ('Сумма чисел, кратных ', a, ' составляет: ', sumk);  

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end.