Câu 1 :
a) A : array[1..200] of integer;
b) For i:=1 to 200 do begin write('Nhap a[',i,']='); readln(a[i]); end;
for i:=1 to 200 do write(a[i]:3);
Câu 2 :
procedure tim(r : integer) ;
begin
write('Nhap ban kinh :'); readln(r);
writeln('Chu vi hinh tron :',r*2*3.14);
writeln('Dien tich hinh tron :',r*r*3.14);
end;