1) с клавиатуры вводится число n…

Program chik; var a: array[1… 1000]of integer; h,i,n,x: integer; beginread (n); h: =0; for i: =1 to n dobeginread (a[i]); end; read (x); for i: =1 to n dobeginif (a[i]=x*x) then h: =h+1; end; write (h); end.2) program chik2; var a,h: integer; begina: =5; h: =0; while a<>0 dobeginread (a); if (a<0) then h: =h+1; end; write (h); end.3) program chik3; var a,h,s,p: real; begina: =5; h: =0; while a<>0 dobeginread (a); s: =s+a; h: =h+1; end; p: =s/h; write (p); end.4) program chik4; var n,j,i: longint; beginread (n); for i: =1 to n dobeginfor j: =1 to i dobeginwrite (j,'); end; writeln; end; end. УДАЧИ!