Помогите пожалуйста решить задачи в турбо Паскале! 1) Определить количество…

1) uses crt; var i,j,n,ans: integer; beginread (n); for i: =1 to 9 dofor j: =0 to 9 doif i+j=n thenans: =ans+1; writeln (ans); end.2) uses crt; var i,n: integer; x: array[1… 100] of integer; beginwriteln ('Введите количество x и значения: '); read (n); for i: =1 to n doread (x[i]); writeln ('x y'); for i: =1 to n dowriteln (x[i],',x[i]*x[i]+3); end.3.uses crt; var i: integer; beginfor i: =1 to 5 dowrite (i*i*i,'); end.4.uses crt; var i,n,sum: real; beginwriteln ('Введите N: '); read (n); i: =3; while i <= n dobeginsum: =sum+1/i; i: =i+3; end; writeln (sum); end.5.uses crt; var j,i,n,sum: integer; a: array[1… 100] of integer; beginwriteln ('Введите количество чисел и сами числа: '); read (n); for i: =1 to n dobeginsum: =0; read (a[i]); for j: =1 to length (inttostr (a[i]) dosum: =sum+strtoint (inttostr (a[i]) [j]); if sum mod 3=0 thenwrite (a[i],'); end; end.6.a) uses crt; var n: string; beginread (n); writeln (max (strtoint (n[1]) ,strtoint (n[2]); end. Б) uses crt; var n: string; beginread (n); writeln (max (max (strtoint (n[1]) ,strtoint (n[2]) ,strtoint (n[3]); end.