PASCAL

Program Masukan_Angka;

Uses Crt;

var
nmr : Integer;
begin

Clrscr;
Writeln('Masukkan Bilangan Bulat');
Readln(nmr);
Writeln('NIlai Bilangan yang dimasukkan Adalah: ',nmr);
Readln; {Selesai tapi nunggu kamu tekan Enter.ok}

end.

program if_or;

var i : integer;

begin
write ('Masukkan Nilai i ='); readln(i);
if i>6 then writeln ('pasti lebih dari 6');
writeln ; writeln ; writeln ; writeln ;

end.

Program example;
{This is an example program for input and output}

uses Crt;
var


name : string[30];
begin

clrscr; {This clears the screen}
write ('What is your name? '); {Writes the question without moveing the cursor to the next line}
readln (name); {take input from user}
writeln ('Hello ', name); {Output Hello joebob}
while not keypressed do; {waits for a key to be pressed}

end.

program if_or;

var i : integer;

begin
write ('Masukkan Nilai i ='); readln(i);
if i>6 then writeln ('pasti lebih dari 6');
writeln ; writeln ; writeln ; writeln ;

end.