program turbo pascal

program ....no space..;

uses crt;

var ..keterangan didalamnya.....:real/string/integer ;

label ......pisah koma...; kalau program lebih dr 1

begin

clrscr;

write('...........'); readln(........);

........

........

........

program(masuk dlm var):=(perhitungan);
writeln('program adalah:',program(masuk dlm var):2:1);

readln;

end.

BLE

INFORMASI TEKHNOLOGI 2011