Program Pascal Sederhana

Ok kali ini saya akan membuat program melalu aplikasi turbo pascal

Baiklah Langsung aja Cekibrot !!
Ini Link untuk download aplikasi turbo pascalnya Turbo Pascal 

Contoh Soal:
Tentukan Nilai Rata-Rata Algoritma Seorang mahasiswa ,jika nilai rata-rata tersebut  berasal dari akumulasi nilai ujian tengah semester dengan nilai akhir semester dibagi dua :

Solusi :

Input 

Nomor Bp              :(NoBp)
Nama Mahasiswa   : (NM)
Nilai UTS               : (NUTS)
Nilai UAS              : (NUAS)

Proses 

Nilai Rata-Rata (NR) : (NUTS+NUAS)/2

Output

Nilai Rata-Rata

Program

Program NilaiMahasiswa;
Usescrt;
var
Nobp :byte;
NM    :[string];
NUTS,NUAS: real;
Begin
Clrscr;
Writeln('Input Data Mahasiswa ');
Writeln('-------------------------------');
Write('Masukan Nomor Bp = ');readln(nobp);
Write('Masukan Nama        = ');readln(nm);
Write('Masukan Nilai UTS  = ');readln(nuts);
Write('Masukan Nilai UAS = ');readln(nuas);
Nr:=(Nuts+nuas)/2;
Write(' Nilai Rata-Rata = ',nr:6:2);
Readkey;

End.

Pernyataan : Kalo bikin program stres dulu baru tau kesalahan abis itu bisa deh terus kalo bikin program harus secara berurutan sesuai dengan flowchartnya , maaf gk bisa kasih flowchartnya
Sekian Dan terima kasih kalo bermanfaat silahkan komentar ..!!

Hasilnya :