Em hãy tìm và sửa lỗi trong chương trình dưới đây

Câu 1: a) Em hãy tìm và sửa lỗi trong chương trình dưới đây? b) Giả sử nhập số phần tử N = 5 em hãy tính số lần lặp trong câu lệnh For, kết thúc chương trình giá trị biển T bằng bao nhiêu?
Program cau30
Var i, N: integer
T: Integer; www
Begin
Write(‘Nhap so phan tu, n = , T :=0 ; Realn(N);
For i :=1 to N do T =T+i: Write(T,T); Readln;
End.
Giúp mik vs ạ