Ridwan Einstein Blog

uses crt;
var nm:string[25];
    tgs,mid,f,na:real;
    tan,nim:char;
    jml,a,b,c,d,e:byte;
begin
     clrscr;
     gotoxy(20,1);writeln('Menghitung nilai Akhir');
     write('Input No.Pokok : ');readln(nim);
     a:=0;b:=0;c:=0;d:=0;e:=0;
     jml:=0;
     nim:=nim;
     while (nim= nim)and(nim <> 'x')and(nim <> 'X') do
       begin