دورة في شرح لغة البرمجة lazarus/free pascal الدرس الثالث

بسم الله الرحمن الرحيم

هذا هو الدرس الثالث من شرح free pascal /lazarus

http://www.youtube.com/watch?v=l7p5sQaipYM&feature=player_embedded

وهذا هو الكود الموجود في الفيديو

program FPTutorial3;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

const
  s = ' ';

begin
  writeln(s:3, '5 + 7 = ', 5 + 7);
  writeln(s:3, '6 - 3 = ', 6 - 3);
  writeln(s:3, '5 * 2 = ', 5 * 2);
  writeln(s:3, '10 / 2 = ', s:2, 10 / 2:0:2);
  writeln(s:3, '100 / 3 = ', 100/3:0:2);
  writeln(5 - 2 + 3);
  writeln((5 - 2) + 3);
  writeln(5 - (2 + 3));
  writeln;
  writeln;
  writeln('Press [Enter] To Quit');
  readln();
end.