Contoh program freepascal program luas lingkaran dan perhitungan diskon

PROGRAM LUAS LINGKARAN DAN PERHITUNGAN DISKON

Banyak program yang bisa kita buat didalam free pascal,terutama untuk menghitung beberapa rumus dalam matematika seperti Luas lingkaran,Luas persegi,Menghitung diskon,DLL. Nah kali ini saya akan memberi contoh coding program LUAS LINGKARAN dan PERHITUNGAN DISKON,dan tolong amati dari kedua program tersebut, dari kedua program tersebut masih terdapat beberapa kesalahan untuk dibenarkan sebagai bahan belajar.Berikut contohnya :
contoh kode program penghitung luas lingkaran berikut 
Program Luas_lingkaran;
uses crt;
varr : integer;
L : real;
begin
 clrscr;
 write(‘Masukan nilai jari-jari = ’);
readln (r);
L := 3.14*r * r * ;
writeln (‘Luas lingkarannya adalah=’,L);
readln;

end.

Berikut contoh kode program perhitungan diskon 
Program Menghitung_diskon;
Uses crt;
var harga,diskon,harga_akhir: real;
begin
write(‘masukan harga barang=’);
 readln(harga);
write(‘masukan prosentase diskon barang, skala 1-100 =’);
 readln(diskon);
 harga_akhir :=harga – (harga * diskon/100);
writeln(‘harga barang setelah didiskon adalah=’, harga_akhir);
 readln;

end.
Berdasarkan pengamatan kalian di atas, buatlah pertanyaan-pertanyaan seperti contoh berikut.
1. Dari kedua contoh diatas adakah persamaan dalam hal penulisan kode program?
2. Coba kalian sebutkan pada bagian mana saja yang terlihat sama.
3. Dari kedua contoh diatas adakah perbedaan dalam hal penyusunan program?
4. Coba kalian sebutkan pada bagian mana saja yang terlihat berbeda!
5. Bagaimana struktur kode program dalam Pascal?