Viết chương trình tính tổng từ 1 đến 50

b/ Cho ví dụ vê khai báo biên mảng.
Câu 11: Viết chương trình tính tổng từ 1 đến 50 .
Câu 12 Chương trình sau. Hãy tìm những lỗi sai và sửa lại cho đúng
Program H-C_N;
Uses Crt;
Var a,b,s,cv:= real;
Begin
While('Nhap chieu dai—"); readln(a);
Write('Nhap chieu r />s=axb;<br />cv:(a+b):2;<br />Writeln('Dien tich hinh chu nhat la:',s:6:2);
Writeln('Chu vi hinh chu nhat:',cv:6:2);
Readln;
End.
Câu 13 Em hãy viết cậu lệnh lặp hiển thị lên màn hình 5 chữ A.
Câu 14 Viết chương trình s= 1 + 3+5+...+n (bằng while ... do).