program capsonhan; uses crt; var i,n:integer; A:array[1..1000] of integer; kt:boolean; k:real; begin clrscr; readln(n); For i:=1 to n do read(A[i]); k:=A[2]/A[1]; For i:=2 to n do if A[i]=k*A[i-1] then kt:=true else begin kt:=false; break; end; If kt=true then writeln('Day la csn') else writeln('Day ko la csn'); readln; readln; end.
program capsonhan; uses crt; var S,i,d,n,j,dem:integer; A:array[1..500] of integer; begin clrscr; readln(n); d:=0; S:=0; dem:=0; For i:=1 to n do read(A[i]); For i:=1 to n do begin For j:=1 to A[i] do if A[i] mod j=0 then inc(d); if d=2 then begin inc(dem); S:=S+A[i]; d:=0; end else d:=0; end; writeln(dem); writeln(S); readln; readln; end.
