program sederhana dengan if dan perulangan

pengalaman masuk S1 Ilmu Komputer ,
awal masuk kuliah dan pertama x belajar bahasa pemrograman , yang di dalam kepala , hanya bingung , bengong dan diam . gak ngerti apa yang dijelaskan . Tetapi lama kelamaan  semua itu dapat dilalui , dan pada satu kisah Asissten Lab memberikan tugas untuk membuat program dengan menggunakan if dan perulangan.
dan hasilnya ,,,,
walau hanya program sederhana ,
tapi cukup bangga bisa buat sendiri, mohon do'a supaya bisa lebih baik yah.

program ifdanperulangan;

uses crt;

var a : integer;

      b : integer;

 begin

clrscr;

writeln ('masukkan usia anda');

readln (a);

for b=1 to a do

if (a<17)then

writeln ('maaf anda tidak dapat mengendarai sepeda motor');

for b=1 to a do

if (a>17)then

writeln ('anda sudah dapat mengendarai sepeda motor');

readln;

end.

dan ini yang keluar di layar.

kenapah muncul tulisan sebanyak 18 x , karena kita buat usia adalah 18,
namun jika kita buat usia 1 , maka yang keluar hanya 1 tulisan.

sekian artikel ini , semoga dapat membantu semua pembaca yah.
kritik dan saran diterima demi perbaikan dan kemajuan artikel.