Program Example86;

{ Program to demonstrate the Continue function. }

Var
  I : longint;

begin
  I := 0;
  While I < 10 Do
  begin
    Inc(I);
    If I < 5 Then
      Continue;
    Writeln (i);
  end;
  I := 0;
  Repeat
    Inc(I);
    If I < 5 Then
      Continue;
    Writeln (i);
  Until I >= 10;
  For I:=1 to 10 do
  begin
    If I < 5 Then
      Continue;
    Writeln (i);
  end;
end.

var
  f : text;
  i : Integer;
begin
  //open file for ouput
  assign(f, 'file.out');
  rewrite(f);

  //write data
  for i := 1 to 1000 do
  begin
    write(f, random(i), ' ');
    writeln(f);
  end;

  //close file
  close(f);
end.

type
  student = record
    name : string;
    address : string;
    grade : integer;
  end;

var
  s : student;

function getInfo(s : student) : string;
begin
  exit('name: ' + s.name + '; address: ' + s.address);
end;

begin
  with s do
  begin
    name := 'John';
    address := 'main street';
    grade := 20;
  end;

  writeln(getInfo(s));

  s.name := 'John';
  s.address := 'main street';
  s.grade := 20;

  writeln(getInfo(s));
end.

program case_of_statement;
var
  n : integer;
begin
  repeat
    write('Enter number smaller than 5 (n <= 4) : ');
    readln(n);
    if n > 4 then
    begin
      writeln(n, '>', 4);
      writeln('Retry !');
    end;
  until n <= 4;
  case n of
    0 : writeln('zero');
    1 : writeln('one');
    2 : writeln('two');
    3 : writeln('three');
    4 : writeln('four');
  end;
  readln;
end.
{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}

program command_exit;

procedure func;
begin
  WriteLn('Before exit');
  exit;
  WriteLn('After exit');
end;

begin
  func;
end.

{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}

program dynamic_array;
var
  a : array of array of integer;
    (* a 2 dimensional array *)
  i, j : integer;

begin
  setlength(a, 5, 5);

  for i:=0 to 4 do
    for j:=0 to 4 do
      a[i, j] := i * j;
  setlength(a, 6, 6);
  for i:=0 to 5 do
  begin
    for j:= 0 to 5 do
      write(a[i, j]: 2, ' ');
    writeln;
  end;
end.

program for_downto_statement;
var
  i, n : integer;
begin
  writeln('Enter small number: ');
  readln(n);
  for i := n downto 1 do writeln('i = ', i);
  readln;
end.

{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}

program for_to_statement;
var
  i, n : integer;
begin
  writeln('Enter small number: ');
  readln(n);
  for i := 1 to n do writeln('i = ', i);
  readln;
end.

{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}

program hello_world;
begin
  Writeln('Hello World');
  Readln;
end.

{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}

{How to use "Readln" and "Write" procedure}
program test_io;
var
  a : integer;
  n : string;
begin
  write('> Enter your name: ');
  readln(n);
  writeln('Your name is ', n);

  writeln('> Enter your age: ');
  readln(a);
  writeln('Your age is ', a);
  //print multi variable to console
  writeln('Name: ', n, '; Age: ', a);
  readln;
end.

{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}

program test_procedure;

procedure print(s : string);
begin
  writeln('> ', s);
end;

begin
  print('test procedure');
  readln;
end.

{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}

program repeat_until_statement;
var
  i : integer;
  sum : integer;
BEGIN
  i := 0;
  sum := 0;
  writeln('Sum of 1 to 100 is: ');
  repeat
    inc(i);
    inc(sum, i);
  until i = 100;
  writeln(sum);
  readln;
END.

{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}

program while_do_statement;
var
  i : integer;
  sum : integer;
BEGIN
  i := 1;
  sum := 0;
  While i <= 1000 do
  begin
    sum := sum + i;
    i := i + 1;
  end;
  write('Sum of 1 to 1000 is: ');
  write(sum);
  readln;
END.

{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}

program Ball;
uses  CRT, GRAPH;

    { Mini-Game | Мини-Игра }

VAR
  X, Y, F : INTEGER;
  G, S : CHAR;

procedure MoveLeft;
begin
  dec(x, 30);
  clearDevice;
  for F:=0 to 20 do
  begin
    circle(x, y, F);
    circle(x, y, F);
    circle(x, y, F);
  end;
  if x < 0 then x := getMaxX;
end;

procedure MoveRight;
begin
  inc(x, 30);
  clearDevice;
  for F:=0 to 20 do
  begin
    circle(x, y, F);
    circle(x, y, F);
    circle(x, y, F);
  end;
  if x > getMaxX then x := 0;
end;

procedure MoveUp;
begin
  dec(y, 30);
  clearDevice;
  for F:=0 to 20 do
  begin
    circle(x, y, F);
    circle(x, y, F);
    circle(x, y, F);
  end;
  if y < 0 then y := getMaxY;
end;

procedure MoveDown;
begin
  inc(y, 30);
  clearDevice;
  for F:=0 to 20 do
  begin
    circle(x, y, F);
    circle(x, y, F);
    circle(x, y, F);
  end;
  if y > getMaxY then y := 0;
end;
var detect:integer=0;
BEGIN
  randomize;
  if getMaxX > getMaxY then exit;
  writeln('Русский | English   (1 | 2)');
  s := readkey;
  if getMaxX > getMaxY then exit;
  if s = '2' then
  begin
    x := getMaxX div 2;
    y := getMaxY div 2;
    initGRAPH(detect, detect, '');
    CursorOFF;
    clrSCR;
    ClearDevice;
    setCOLOR(-6656);
    setTextStyle(0, 0, 5);
    outTextXY(125, 75, 'g');
    outTextXY(50, 177, 'c');
    outTextXY(125, 180, 'v');
    outTextXY(200, 165, 'b');
    setCOLOR(-16743292);
    outTextXY(125, 270, '+');
    setCOLOR(-1);
    for F:=0 to 20 do
    begin
      circle(x, y, F);
      circle(x, y, F);
      circle(x, y, F);
    end;
    setCOLOR(-16758009);
    While True Do
    begin
      if getMaxX > getMaxY then exit;
      g := ReadKEY;
      if getMaxX > getMaxY then exit;
      if g = 'g' then
      begin
        MoveUp;
        MoveUp;
      end else
        if g = 'v' then
        begin
          MoveDown;
          MoveDown;
        end else
          if g = 'c' then
          begin
            MoveLeft;
            MoveLeft;
          end else
            if g = '+' then setCOLOR(random(getMaxColor)) else
              if g = 'b' then
              begin
                MoveRight;
                MoveRight;
              end else write;
    end;
  end
  else if s = '1' then
  begin
    x := round(getMaxX / 2);
    y := round(getMaxY / 2);
    initGRAPH(detect, detect, '');
    CursorOFF;
    clrSCR;
    ClearDevice;
    setCOLOR(-6656);
    setTextStyle(0, 0, 5);
    outTextXY(125, 75, 'н');
    outTextXY(60, 150, 'п');
    outTextXY(125, 230, 'и');
    outTextXY(190, 151, 'о');
    setCOLOR(-16743292);
    outTextXY(125, 320, '+');
    setCOLOR(-1);
    for F:=0 to 20 do
    begin
      circle(x, y, F);
      circle(x, y, F);
      circle(x, y, F);
    end;
    setCOLOR(-16758009);
    While True Do
    begin
      if getMaxX > getMaxY then exit;
      g := ReadKEY;
      if getMaxX > getMaxY then exit;
      if g = 'н' then MoveUp else
        if g = 'и' then MoveDown else
          if g = 'п' then MoveLeft else
            if g = '+' then setCOLOR(random(getMaxColor)) else
              if g = 'о' then MoveRight else write;
    end;
  end else exit;
END.

(* Author:    Tao Yue
   Date:      19 July 1997
   Description:
      Find the first 10 Fibonacci numbers
   Version:
      1.0 - original version
*)

{
Problem 1
Find the first 10 numbers in the Fibonacci sequence.
The Fibonacci sequence starts with two numbers: 1 1

Each subsequent number is formed by adding the two numbers before it.
 1+1=2, 1+2=3, 2+3=5, etc. This forms the following sequence:
1 1 2 3 5 8 13 21 34 55 89 144 ...
}

program Fibonacci;

var
  Fibonacci1, Fibonacci2 : integer;
  temp : integer;
  count : integer;

begin
  (* Main *)
  writeln ('First ten Fibonacci numbers are:');
  count := 0;
  Fibonacci1 := 0;
  Fibonacci2 := 1;
  repeat
    write (Fibonacci2: 7);
    temp := Fibonacci2;
    Fibonacci2 := Fibonacci1 + Fibonacci2;
    Fibonacci1 := Temp;
    count := count + 1
  until count = 10;
  writeln;

  (* Of course, you could use a FOR loop or a WHILE loop
     to solve this problem. *)

end.     (* Main *)

(* Author:    Tao Yue
   Date:      13 July 2000
   Description:
      Display all powers of two up to 20000, five per line
   Version:
      1.0 - original version
*)

{
Problem 2
Display all powers of 2 that are less than 20000.
Display the list in a properly formatted manner,
with commas between the numbers. Display five
numbers per line. The output should look like:
    1, 2, 4, 8, 16,
32, 64, 128, 256, 512,
1024, 2048, 4096, 8192, 16384
}

program power_of_two;

const
  numperline = 5;
  maxnum = 20000;
  base = 2;

var
  number : longint;
  linecount : integer;

begin
  (* Main *)
  writeln ('Powers of ', base, ', 1 <= x <= ', maxnum, ':');
  (* Set up for loop *)
  number := 1;
  linecount := 0;
  (* Loop *)
  while number <= maxnum do
  begin
    linecount := linecount + 1;
    (* Print a comma and space unless this is the first
       number on the line *)
    if linecount > 1 then
      write (', ');
    (* Display the number *)
    write (number);
    (* Print a comma and go to the next line if this is
       the last number on the line UNLESS it is the
       last number of the series *)
    if (linecount = numperline) and not (number * 2 > maxnum) then
    begin
      writeln (',');
      linecount := 0
    end;
    (* Increment number *)
    number := number * base;
  end; (* while *)
  writeln;

  (* This program can also be written using a
     REPEAT..UNTIL loop. *)

end.     (* Main *)

Program Example8;
uses Crt;

{ Program to demonstrate the ClrScr function. }

begin
  Writeln('Press any key to clear the screen');
  readln;
  ClrScr;
  Writeln('Have fun with the cleared screen');
end.

Program Example6;
uses Crt;

{ Program to demonstrate the GotoXY function. }
begin
  ClrScr;
  GotoXY(10, 10);
  Write('10,10');
  GotoXY(20, 20);
  Write('20,20');
  GotoXY(1, 22);
  readln;
end.
{http://www.freepascal.org/docs-html/rtl/crt/gotoxy.html}

Program Example16;
uses Crt;

{ Program to demonstrate the Sound and NoSound function. }

var
  i : longint;
begin
  WriteLn('You will hear some tones from your speaker');
  while (i < 15000) do
  begin
    inc(i, 500);
    Sound(i);
    Delay(100);
  end;
  WriteLn('Quiet now!');
  {Stop noise}
  NoSound;
end.
{http://www.freepascal.org/docs-html/rtl/crt/nosound.html}

Program ExampleTextColor;
uses Crt;

{ Program to demonstrate the TextColor function. }

begin
  WriteLn('This is written in the default color');
  TextColor(Red);
  WriteLn('This is written in Red');
  TextColor(White);
  WriteLn('This is written in White');
  TextColor(LightBlue);
  WriteLn('This is written in LightBlue');
  TextColor(Green);
  WriteLn('This is written in Green');
  TextColor(Brown);
  WriteLn('This is written in Brown');
  TextColor(Blue);
  WriteLn('This is written in Blue');
  TextColor(Cyan);
  WriteLn('This is written in Cyan');
  TextColor(Red);
  WriteLn('This is written in Red');
  TextColor(Magenta);
  WriteLn('This is written in Magenta');
  TextColor(LightGray);
  WriteLn('This is written in LightGray');
  TextColor(DarkGray);
  WriteLn('This is written in DarkGray');
  TextColor(LightBlue);
  WriteLn('This is written in LightBlue');
  TextColor(LightGreen);
  WriteLn('This is written in LightGreen');
  TextColor(LightCyan);
  WriteLn('This is written in LightCyan');
  TextColor(LightRed);
  WriteLn('This is written in LightRed');
  TextColor(LightMagenta);
  WriteLn('This is written in LightMagenta');
  TextColor(Yellow);
  WriteLn('This is written in Yellow');
  TextColor(Black);
  WriteLn('This is written in Black');
  ReadLn;
end.
{http://www.freepascal.org/docs-html/rtl/crt/textcolor.html}

Program Example2;
uses Dos;

{ Program to demonstrate the GetDate function. }

const
  DayStr : array[0..6] of string[3] = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
  MonthStr : array[1..12] of string[3] = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
var
  Year, Month, Day, WDay : word;
begin
  GetDate(Year, Month, Day, WDay);
  WriteLn('Current date');
  WriteLn(DayStr[WDay], ', ', Day, ' ', MonthStr[Month], ' ', Year, '.');
end.

Program Example4;
uses Dos;

{ Program to demonstrate the PackTime and UnPackTime functions. }

var
  DT : DateTime;
  Time : longint;
begin
  with DT do
  begin
    Year := 2017;
    Month := 11;
    Day := 11;
    Hour := 11;
    Min := 11;
    Sec := 11;
  end;
  PackTime(DT, Time);
  WriteLn('Packed Time : ', Time);
  UnPackTime(Time, DT);
  WriteLn('Unpacked Again:');
  with DT do
  begin
    WriteLn('Year  ', Year);
    WriteLn('Month ', Month);
    WriteLn('Day   ', Day);
    WriteLn('Hour  ', Hour);
    WriteLn('Min   ', Min);
    WriteLn('Sec   ', Sec);
  end;

//  readln;
end.

Program draw_bar;
Uses Crt, Graph;

Var
  graphicsDriver, graphicsMode : integer;
Begin
  graphicsDriver := Detect;
  InitGraph(graphicsDriver, graphicsMode, '');
  Randomize;
  SetColor(Random(15) + 1); {Set paint color}


  {Draw bar}
  bar(100, 100, 300, 200);

  ReadLn;
  CloseGraph;
End.

program draw_circle;
uses graph;

Var
  graphicsDriver, graphicsMode : integer;
  Radius : Integer;
Begin
  graphicsDriver := Detect;
  InitGraph(graphicsDriver, graphicsMode, '');
  setlinestyle(0, 0, 3);

  for Radius:=1 to 23 do Circle(320, 240, Radius * 10);

  readln;
  ClearDevice; {clear screen}

  SetColor(LightMagenta); {set paint color}

  for Radius:=1 to 23 do Arc(320, 240, 0, 280, Radius * 10);

  readln;
  closegraph;

end.

Program draw_fill_ellipse;
Uses Crt, Graph;

Var
  graphicsDriver, graphicsMode : integer;
Begin
  graphicsDriver := Detect;
  InitGraph(graphicsDriver, graphicsMode, '');

  Randomize;
  SetColor(Random(15) + 1); {Set paint color}

  fillEllipse(200, 200, 150, 50);

  ReadLn;
  CloseGraph;
End.

uses Graph;

var
  P : Pointer;
  Size : Word;

Var
  graphicsDriver, graphicsMode : integer;
Begin
  graphicsDriver := Detect;
  InitGraph(graphicsDriver, graphicsMode, '');

  SetFillStyle(XHatchFill, Cyan);
  Bar(0, 0, GetMaxX, GetMaxY);
  Size := ImageSize(10, 20, 30, 40);
  GetMem(P, Size);
  GetImage(10, 20, 30, 40, P^);
  ReadLn;
  ClearDevice;
  PutImage(100, 100, P^, NormalPut);
  ReadLn;
  CloseGraph;
end.
{http://pascal.net.ru/GetImage}

Program draw_line;
Uses Crt, Graph;

Var
  graphicsDriver, graphicsMode,
    i, startX, startY, maxColor, color : Integer;
Begin
  graphicsDriver := Detect;
  InitGraph(graphicsDriver, graphicsMode, '');

  Randomize;
  startX := getMaxX();
  startY := getMaxY();
  maxColor := getMaxColor();

  While (not keypressed) do
  Begin
    delay(50);
    color := random(maxColor) + 1;
    setColor(color);
    line(random(startX), random(startY), random(startX), random(startY));
  end;

  ReadLn;
  CloseGraph;
End.

program moveToExample;
Uses Graph;

Var
  Gd, Gm : Integer;
Begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');

  MoveTo(0, 0);
  LineTo(GetMaxX, GetMaxY);

  ReadLn;
  CloseGraph;
End.

{Sample code for the PieSlice procedure.}
uses Graph;

const
  Radius = 30;
var
  Gd, Gm : Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, ' ');

  PieSlice(100, 100, 0, 270, Radius);
  Readln;
  CloseGraph;
end.
{http://putka.upm.si/langref/turboPascal/04B7.html}

Program rect;
Uses Crt, Graph;

Var
  graphicsDriver, graphicsMode, i : Integer;
Begin
  graphicsDriver := Detect;
  InitGraph(graphicsDriver, graphicsMode, '');

  Randomize;
  SetColor(Random(15) + 1); {Set text color}

  rectangle(10, 10, 200, 200);

  ReadLn;
  CloseGraph;
End.

uses Graph;

var
  Gd, Gm : Integer;

begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');

  SetTextJustify(CenterText, CenterText);
  OutTextXY(Succ(GetMaxX) div 2, Succ(GetMaxY) div 3, 'CenterText');

  SetTextJustify(LeftText, CenterText);
  OutTextXY(0, Succ(GetMaxY) div 3, 'LeftText');

  SetTextJustify(RightText, CenterText);
  OutTextXY(Succ(GetMaxX), Succ(GetMaxY) div 3, 'RightText');
  ReadLn;
  CloseGraph;
end.

Program Example1;

{ Program to demonstrate the arccos function. }

Uses math;

Procedure WriteRadDeg(X : float);

begin
  Writeln(X: 8 : 5, ' rad = ', radtodeg(x): 8 : 5, ' degrees.')
end;

begin
  WriteRadDeg (arccos(1));
  WriteRadDeg (arccos(sqrt(3) / 2));
  WriteRadDeg (arccos(sqrt(2) / 2));
  WriteRadDeg (arccos(1 / 2));
  WriteRadDeg (arccos(0));
  WriteRadDeg (arccos(-1));
end.
{https://www.freepascal.org/docs-html/rtl/math/arccos.html}

Program Example4;

{ Program to demonstrate the arsinh function. }

Uses math;

begin
  Writeln(arsinh(0));
  Writeln(arsinh(1));
end.
{https://www.freepascal.org/docs-html/rtl/math/arsinh.html}

Program Example13;

{ Program to demonstrate the floor function. }

Uses math;

begin
  Writeln(Ceil(-3.7)); // should be -4
  Writeln(Ceil(3.7)); // should be 3
  Writeln(Ceil(-4.0)); // should be -4
end.

Program Example11;

{ Program to demonstrate the degtograd function. }

Uses math;

begin
  writeln(degtograd(90));
  writeln(degtograd(180));
  writeln(degtograd(270))
end.
{http://www.freepascal.org/docs-html/rtl/math/degtograd.html}

Program Example48;

{ Program to demonstrate the Tanh function. }

Uses math;

begin
  writeln(tanh(0));
  writeln(tanh(1));
  writeln(tanh(-1));
end.
{http://www.freepascal.org/docs-html/rtl/math/tanh.html}

program CharToAscii1;
var
  character : char;
  ascii : integer;
begin
  ascii := ord('a');
  writeln('a in ascii is ', ascii);
  character := chr(87);
  writeln('ascii 87 is character ', character);
  readln;
end.
{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}

Program Copy1;

{ Program to demonstrate the Copy function. }

Var
  S, T : String;

begin
  T := '1234567';
  S := Copy (T, 1, 2); { S:='12'   }
  writeln(s);
  S := Copy (T, 4, 2); { S:='45'   }
  writeln(s);
  S := Copy (T, 4, 8); { S:='4567' }
  writeln(s);
end.

Program Dec1;

{ Program to demonstrate the Dec function. }

Var
  I : Integer;
  L : Longint;
  W : Word;
  B : Byte;
  Si : ShortInt;

begin
  I := 1;
  L := 2;
  W := 3;
  B := 4;
  Si := 5;
  Dec(i); { i:=0  }
  Dec(L, 2); { L:=0  }
  Dec(W, 2); { W:=1  }
  Dec(B, -2); { B:=6  }
  Dec(Si, 0); { Si:=5 }
  Write(i, ' ', L, ' ', W, ' ', B, ' ', Si);
end.

Program Example20;

{ Program to demonstrate the Erase function. }

Var
  F : Text;

begin
  { Create a file with a line of text in it}
  Assign (F, 'test.txt');
  Rewrite (F);
  Writeln (F, 'Try and find this when I''m finished !');
  close (f);
  { Now remove the file }
  Erase (f);
end.

Program Exit1;

{ Program to demonstrate the Exit function. }

Procedure DoAnExit (Yes : Boolean);

{ This procedure demonstrates the normal Exit }

begin
  Writeln ('Hello from DoAnExit !');
  If Yes then
  begin
    Writeln ('Bailing inType early.');
    exit;
  end;
  Writeln ('Continuing to the end.');
end;

Function Positive (Which : Integer) : Boolean;

{ This function demonstrates the extra FPC feature of Exit :
  You can specify a return value for the function }

begin
  if Which > 0 then
    exit (True)
  else
    exit (False);
end;

begin
  { This call will go to the end }
  DoAnExit (False);
  { This call will bail inType early }
  DoAnExit (True);
  if Positive (-1) then
    Writeln ('The compiler is nuts, -1 is not positive.')
  else
    Writeln ('The compiler is not so bad, -1 seems to be negative.');
end.

program testFunc;

//return sqrt(number)
function square_root(a : integer) : real;
begin
  square_root := sqrt(a);
end;

begin
  writeln('sqrt(4) = ', square_root(4));
  readln;
end.
{if you want to improve this code, please send code to me
tranleduy1233@gmail.com}

Program Insert1;

{ Program to demonstrate the Insert function. }

Var
  S : String;

begin
  S := 'Free Pascal is difficult to use !';
  Insert ('NOT ', S, pos('difficult', S));
  writeln (s);
end.

Program Length1;

{ Program to demonstrate the Length function. }

type
  somebytes = array [6..10] of byte;

  somewords = array [3..10] of word;

Var
  S : String;
  I : Integer;
  bytes : somebytes;
  words : somewords;

begin
  S := '';
  for i:=1 to 10 do
  begin
    S := S + '*';
    Writeln (Length(S): 2, ' : ', s);
  end;
  Writeln('Bytes : ', length(bytes));
  Writeln('Words : ', length(words));
end.

Program Pos1;

{ Program to demonstrate the Pos function. }

Var
  S : String;

begin
  S := 'The first space in this sentence is at position : ';
  Writeln (S, pos(' ', S));
  S := 'The last letter of the alphabet doesn''t appear in this sentence ';
  If (Pos ('Z', S) = 0) and (Pos('z', S) = 0) then
    Writeln (S);
end.

Program Example49;

{ Program to demonstrate the Random and Randomize functions. }

Var
  I, Count, guess : Longint;
  R : Real;

begin
  Randomize; { This way we generate a new sequence every time
               the program is generate}
  Count := 0;
  For i:=1 to 1000 do
    If Random > 0.5 then inc(Count);
  Writeln ('Generated ', Count, ' numbers > 0.5');
  Writeln ('inType of 1000 generated numbers.');
  count := 0;
  For i:=1 to 5 do
  begin
    write ('Guess a number between 1 and 5 : ');
    readln(Guess);
    If Guess = Random(5) + 1 then inc(count);
  end;
  Writeln ('You guessed ', Count, ' inType of 5 correct.');
end.

Program Round1;

{ Program to demonstrate the Round function. }

begin
  Writeln (Round(1234.56)); { Prints 1235     }
  Writeln (Round(-1234.56)); { Prints -1235    }
  Writeln (Round(12.3456)); { Prints 12       }
  Writeln (Round(-12.3456)); { Prints -12      }
  Writeln (Round(2.5)); { Prints 2 (down) }
  Writeln (Round(3.5)); { Prints 4 (up)   }

end.

Program Sin1;

{ Program to demonstrate the Sin function. }

begin
  Writeln (Sin(Pi): 0 : 1); { Prints 0.0 }
  Writeln (Sin(Pi / 2): 0 : 1); { Prints 1.0 }
end.

Program Sqr1;

{ Program to demonstrate the Sqr function. }
Var
  i : Integer;

begin
  For i:=1 to 10 do
    writeln(Sqr(i): 3);
end.