program Input

Uses Crt;
Var A,B,C:Byte; {A,B,C Merupakan variable yang digunakan dalam Program}
Begin
Clrscr;
Write(‘Masukan nilai A=’);Readln(A);{input data pada baris yang sama}
Write(‘Masukan nilai B=’);Readln(B);{input data pada baris yang sama}
C:=A+B;
Writeln(‘A+B=’,C); {untuk menampilkan A+B=}
Writeln(A,’+’,B,’=’,C); {untuk menampilkan nilai A dan B yang kita input}
Readln;
End.
Output
Masukan ni lai A=5 {angka 5 merupakan nilai yang kita input}
Masukan ni lai B=6 {angka 6 merupakan nilai yang kita input}
A+B=11 {angka 11 merupakan nilai C hasil dari A+B}
5+6=11

Contoh 2
Uses Crt;
Var A,B,C:Byte; {A,B,C Merupakan variable yang digunakan dalam Program}
Begin
Clrscr;
Writeln(‘Masukan nilai A=’);Readln(A); {input data pada baris yang berbeda}
Writeln(‘Masukan nilai B=’);Readln(B);{input data pada baris yang berbeda}
C:=A+B;
Uses Crt;
Var A,B,C:Byte;
Begin
Clrscr;
Writeln(‘Masukan nilai A=’);
Readln(A);C:=A+BWriteln(‘Masukan nilai B=’);Readln(B);
Writeln(‘A+B=’,C); {untuk menampilkan A+B=}
Writeln(A,’+’,B,’=’,C); {untuk menampilkan nilai A dan B yang kita input}
Readln;
End.
Output
Masukan nilai A=
5 {angka 5 merupakan nilai yang kita input}
Masukan nilai B=
6 {angka 6 merupakan nilai yang kita input}
A+B=11 {angka 11 merupakan nilai C hasil dari A+B}
5+6=11
Note :
- Clrscr digunakan untuk membersihkan layar monitor dari tampilan sebelumnya
- Clrscr harus dipasangkan dengan Uses Crt bila pascal dijalankan dalam DOS

Contoh 3
Var Nama:String[15];
Begin
Nama :=’Shabira’;
Write(‘Nama :’);
Write(Nama);
Readln;
End.
Output
Nama : Shabira
Contoh 4
Var Nama:String[15];
Begin
Nama :=’Shabira’;
Writeln(‘Nama :’);
Writeln(Nama);
Readln;
End.
Output
Nama :
Shabira
Contoh 5
Var Nama:String[15]; {untuk membatasi jumlah character dalam
string}
Begin
Nama :=’Shabira Kusumawati’;
Write(‘Nama :’);
Write(Nama);
Readln;
End.
Output
Nama : Shabira Kusumaw
Note : String[15] berarti jumlah character yang akan ditampilkan hanya 15 character.
Contoh 6
Var Huruf1,Huruf2:char;
Begin
Huruf1:=’A’;
Huruf2:=’B’;
Writeln(Huruf1,Huruf2);
Readln;
End.
Output
AB