s.txt

来自「自己写的一个simple语言scanner」· 文本 代码 · 共 10 行

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