Viết chương trình cho phép tính trung bình nhân của bốn số với điều kiện chỉ được sử dụng hai biến

Bài 1.
Viết chương trình cho phép tính trung bình nhân của bốn số với điều kiện chỉ được sử dụng hai biến. 
a. Hướng dẫn:
-Dùng một biến S có giá trị ban đầu bằng 1.
-Dùng một biến để nhập số. 
-Sau khi nhập một số nhân ngay vào biến S. 
-Trung bình nhân bốn số là căn bậc 4 tích của chúng( dùng 2 lần căn bậc 2).
b. Mã chương trình:
Program TB_nhan;
uses crt;
Var a, s: real; 
Begin
       clrscr;