CODE EXAMPLE FOR PASCAL

pascal cheat sheett

procedure yell(s: string, n: integer);
  var
    i: integer;
  begin
    for i := 1 to n do
      writeln(s);
  end;