cau1 mang tinh chat li thuyet ban tu lam nhe
cau 2
var a:array[1..1000000]of longint;i,n:longint;
begin
read(n);
for i:=1 to n do begin read(a[i]);if a[i]>=0 then ind(d);end;
write(d);readln;
end.
cau3
var s:string;
begin
read(s);
writeln(s);
write(length(s));
readln;
end.