Dasar Pemrograman Turbo pascal If ...then dan Perulangan For ...to...do

Program Pilihan(if....then)
Program Konversi_Nilai;uses wincrt;var nilai:integer; huruf:char;
beginwrite('Masukan nilai angka:');readln(nilai);if(nilai>0)and(nilai<=20)then huruf:='E';if(nilai>20)and(nilai<=40)then huruf:='D';if(nilai>40)and(nilai<=60)then huruf:='C';if(nilai>60)and(nilai<=80)then huruf:='B';if(nilai>80)and(nilai<=100)then huruf:='A';writeln('Nilai huruf = ', huruf);end.

Program Konversi_menu_restoran;uses wincrt;var hari_ke:integer; hari:string;
beginwrite('Masukan hari ke:');readln(hari_ke);case(hari_ke)of1:hari:='sayur asem';2:hari:='tongseng sapi';3:hari:='lodeh terong';4:hari:='soto';5:hari:='gule kambing';6:hari:='ayam bakar';7:hari:='gurameh goreng';end;writeln('Hari ke= ',hari_ke, 'menunya adalah ' ,hari);end.

Program perulangan;uses wincrt;var a:integer;
begin for a:= 1 to 20 dowriteln(a,'. oke saya bisa');end.

Program perulangan;uses wincrt;var a:real;begina:=1;while(a<=50)do beginwriteln(a:3:0,'. Bilangan kelipatan lima');a:=a+5;end;end.

Program Faktorial_angka;uses wincrt;var faktorial:longint; n,i: integer;beginWriteln('Menghitung nilai n!(n faktorial');Write('Ketikan sebuah bilangan yang akan dihitung:');readln(n);faktorial:=1;for i:=1 to n do faktorial:=faktorial*i;Writeln(n,'!=',faktorial);end.