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

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

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

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

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

program FPTutorial4;

{$mode objfpc}{$H+}

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

var
  name:string;
  num1:real;
  num2:real;
  total:real;

begin
  write('Enter Name: ');
  readln(name);
  write('Enter First Number: ');
  readln(num1);
  write('Enter Second Number: ');
  readln(num2);
  total := num1 + num2;
  writeln;
  writeln('The Sum Of The Numbers Is: ', total:0:2);
  writeln;
  writeln('Nice To Meet You, ', name);
  writeln;
  writeln;
  writeln('Press [Enter] To Quit');
  readln();
end.