if4.pas

This is programing tutorial for people who wants to know programing in PASCAL.Pascal might be not th

program if4;
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 writeln('It is done if i > 10 only.');
  writeln('We always do this');
end.