s.txt

自己写的一个simple语言scanner

program sample;
 var
  i, j, k,m, n, l:real;
begin
  if k or m<n and j>i then
    i:=(-(j+1+n)+l*k)+m
  else
    i:=(-j)+1;
end