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.
