đoạn chương trình sau cho kết quả gì?(kèm theo lời giải thích)

Propram welcome ;

var a: srting[10];

begin

a :='tin hoc';

writeln(lengh(a));

end

trong ngôn ngữ lập trình pascal, đoạn chương trình sau thực hiện việc gì

var a : array[0..50] of real ;

k := 0 ;

for i:= 1 to 50 do

if a[i] > a[k] then k:= i;

nhập vào sâu S và thực hiện các yêu cầu sau:

yêu cầu hãy xóa hết các ký tự trắng có trong xâu. In xâu S ra màn hình

cho số nguyên N(n<=100) và mảng A gồm n phần tử A1,...,An

yêu cầu : tính và in ra màn hình tổng các số nguyên dương