FPC

  File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help 14:44:06
─────────────────────────1─────┐
│╔═[■]════════════════════════════ fasc.pas:3 ═════════════════════════════[↑]═╗
│║program                                                                      ▲
│║     tes_;                                                                   ▓
│║                                                                             ▓
│║var                                                                          ▓
│║  a,b,c   :integer;                                                          ▓
│║begin                                                                        ▓
│║    write('masukan masukan jumlah pil ekstasi yang di minum farras=');       ▓
│║    readln(A);                                                               ▓
│║    write('masukan masukan jumlah pil ekstasi yang di muntahin farras=');    ▓
│║   readln(b);                                                                ▓
│║   write('masukan jumlah pil ekstasi yang di jilat lagi dari lantai =');     ▓
│║     readln(c);                                                              ▓
│║   writeln('Jumlah pil ekstasi yang di makan =');                             ▓
│║   writeln(a-b+c);                                                           ▓
│║   writeln('jumlah pil yang tersisa di lantai=');                            ▓
│║   writeln(b-c);                                                             ▓
│║    readln();                                                                ▓
│║end.                                                                         ▓
│║                                                                             ▓
│║                                                                             ▼
└╚════════1:1 ═◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►┘
 F1 Help  F2 Save  F3 Open  Alt+F9 Compile  F9 Make  Alt+F10 Local menu
Saat kita memulai kita harus menulis judul kemudian menuliskan "var" untuk jenis sunject yang akan di gunakan  dalam rumus,dan setiap akhir tulisan harus menggunakan ";".Dan setiap akan memulai membuat rumus harus menulis begin dan di akhir menulis "end",dan pada saat menulis rumus kita harus menggunakan " '  ' " .dan saat ingin menjalakan program ter sebut menggunakan "Run" pada menu
FUNGSI write =>untuk memasukan tulisan yang akan di baca
               writeln=>sama dengan "write" tapi otomatis menaruh enter di blakang tulisan
               read=>untuk menampilakan angka atau huruf yang kita tulis
               readln=>sama dengan "read" tapi otomatis menaruh benter di blakang kalimat