Viết chương trình Pascal cho hai thuật toán sau

Viết chương trình Pascal cho hai thuật toán sau:
Thuật toán 1: 
Bước 1: T:=0; n:=0
Bước 2: Nếu T >20 chuyển về bước 4
Bước 3: n:= n+2; T := T+n; Quay lại bước 2
Bước 4: Thông Bảo T; Kết thúc thuật toán

Thuật toán 2:
Bước 1: T:= 50; n:=0
Bước 2: Nếu T<n ;chuyển đến bước 4
Bước 3: n := n+3 ; T:= T - n ; Quay lại bước 2
Bước 4: Thông Báo T; kết thúc thuật toán
 
Anh chị nào giải giúp em với ạ, 18h ngày 18/8 em nộp rồii