lehitkarnef

var val tcred,var val tdeb,var boolean virgin,var boolean virginobj, var val stb boolean TrHs,testf; integer i,rwc; val sb,a,b val tc,td; boolean foundtr; a = 0;b = 0;stb =0;