Задача№1. Найти произведение цифрзаданного трехзначного числа

1.uses crt; var n: string; beginread (n); writeln (strtoint (n[1])*strtoint (n[2])*strtoint (n[3]); end.2.uses crt; var n,i: integer; res: double; beginread (n); for i: =1 to n dores: =res+cos (1/i); writeln (res: 5:3); end.3.uses crt; var n,i: integer; mult: real; a: array[1… 100] of real; beginmult: =1; writeln ('Input N and elements of array.'); read (n); for i: =1 to n dobeginread (a[i]); if i mod 2=0 then mult: =mult*a[i]; end; writeln (mult); end.4.uses crt; var n,i,sum: integer; a: array[1… 100] of integer; beginwriteln ('Input N and elements of array.'); read (n); for i: =1 to n doread (a[i]); i: =1; while (a[i]<>0) and (i <= n) dobeginif a[i] mod 2=0 thensum: =sum+a[i]; i: =i+1; end; writeln (sum); end.