有什么问题吗？？？

program huobi;

var a:array[1..20]of longint;

i,T:integer;

procedure suan(j:longint);

var s:longint;

begin

repeat

s:=trunc(j/2)+trunc(j/3)+trunc(j/4);

if s>j then j:=s;

until s