if1.pas

来自「This is programing tutorial for people w」· PAS 代码 · 共 14 行

program if1;
var
  i : byte;
begin
  writeln('Enter a number = '); readln(i);
  if i <= 10 then
  begin
    writeln('It is done if i <= 10 only');
    writeln('Or you just can omit the begin..end block');
    writeln('if there is only ONE command inside (See IF2.PAS)');
  end;
  writeln('We always do this');
end.