請寫出這三個簡單的PASCAL程序。

var s，n:整數；

開始

s:= 0；

n:= 0；

重復

n:= n+2；

s:= s+n；

直到s & gt=1500;

writeln(n-2)；

結束。

程序T2；

假設只有小偷會說謊，好人很誠實，那麽C就是小偷。沒有這個可笑的前提，就無法確定小偷，也無法用任何語言編寫程序。