if5.pas

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

program if5;
var
  i : byte;
begin
  writeln('Enter a number = '); readln(i);
  if i <= 10 then
  begin
    writeln('It is done if i <= 10 only');
    writeln('Yeah, you can add begin..end block to else part too !');
  end   { Omit the semicolon BEFORE the end keyword }
  else
  begin
     writeln('It is done if i > 10 only.');
     writeln('Look !');
  end;
  writeln('We always do this');
end.