Ketik USES CRT untuk pertama kali memulai program .
Lalu ketik VAR untuk variable yang terdiri dari a,b,c yang berisi data string dan maksimal 20 karakter
Lalu ketik BEGIN untuk memulai program
Lalu ketik WRITELN (‘MASUKAN NAMA ANDA =’); dan outputnya keluarannya MASUKAN NAMA ANDA =(yang anda ingikan )
Lalu ketik READLN(A);untuk masuk ke variable A
Lalu ketik WRITELN (‘ MASUKAN KELAS ANDA =’); dan outputnya keluarannya MASUKAN KELAS ANDA =(yang anda inginkan )
Lalu ketik READLNM (B); untuk masuk ke variable B
Lalu ketik WRITELN (‘MASUKAN NPM ANDA =’ ); dan output keluarannya MASUKAN NPM ANDA = (yang anda inginkan )
Lalu ketik READLN(C); untuk masuk ke variable C
Lalu ketik WRITELN (‘NAMA ANDA ADALAH =’,A); dan output keluarannya adalah nama anda yang telah di tulis dalam variable A
Lalu ketik WRITELN(‘KELAS ANDA ADALAH=’,B); dan output keluarannya adalah kelas anda yang telah di tulis dalam variable B
Lalu ketik WRITELN (‘NPM ANDA ADALAH =’,C); dan output keluarannya adalah NPM anda yang telah di tulis dalam variable C
Lalu ketik READLN; untuk membaca semua yang ada
Lalu ketik END untuk mengakhiri program.
Ketik USES CRT untuk memulai program
Lalu ketik VAR untuk variable ALAS,TINGGI,dan LUAS yang berupa data integer
Lalu ketik BEGIN untuk memulai program
Lalu ketik CLRSCR untuk merefresh program
Lalu ketik WRITELN (‘MASUKAN ALAS=’); dan output keluarannya MASUKAN ALAS = ( yang anda inginkan )
Lalu ketik READLN (ALAS );untuk masuk ke variable ALAS
Lalu ketik WRITELN(‘MASUKAN TINGGI=’); dan output keluarannya MASUKAN TINGGI = ( yang anda inginkan )
Lalu ketik READLN (TINGGI ); untuk masuk ke variable TINGGI
Lalu ketik rumus LUAS SEGITIGA ( LUAS = ALAS * TINGGI DIV<div untuk pembagian dibulatkan> 2 ),lalu ketik WRITELN (‘LUAS=’,LUAS); dan hasil output keluarannya LUAS = ( hasil perkalian ALAS dengan LEBAR dibagi 2)
Ketik READLN;untuk membaca semua data yang ada
Ketik END. untuk mengakhiri program .
sekian semoga bermanfaat
