Определите и выведите на экран произведение чётных чисел меньше 15. паскаль

2; 4; 6; 8; 10; 12; 14 - найти произведение  этих чисел первое число 2, а каждое следующее на 2 больше предыдущего program pr_chot;   var i,p: integer; begin p: =1; i: =2; while i< =15 do     begin       p: =p *i;         i: =i+2     end; writeln('p=',p) end.

var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.