Program Teks : Turbo Pascal

program teks;

uses wincrt;

begin

writeln(‘Ini Program Menampilkan Teks’);

end.

Tekan ctrl+F9 untuk menjalankan program or pilih Run dan run di menu bar.

Program II

program TeksDua;

uses wincrt;

const

x=’Teks’;

b=2;

Begin

writeln('Program Menampilkan Teks');

writeln('--------------------------------------');

writeln('Ini teks 1'); {program tanpa konstanta}

writeln('ini ',x, ' 2'); {program dengan Konstanta "X = Teks"}

writeln('bilangan ', b, ' + ', b, ' = ', b+b);

End.

Tekan ctrl+F9 untuk menjalankan program or pilih Run dan run di menu bar.