Program Menampilkan Text Box

Uses crt;
Begin
Write(‘Selamat datang di blog Adjheemhjr.blogspot.com,Terima kasih telah mengunjungi blog ini :’);
Readln;
End.

Program Potongan Harga

Uses crt;
Var nilai1,nilai2,h,p:longint;
Begin
    Clrscr;
    Write<’masukkan_nilai1:’>;
    Readln<nilai1>;
    Write<’masukkan_nilai2:’>;
    Readln<nilai2>;
    h:nilai1+nilai2;
    writeln<’hasil:’,h>;
    p:=h;
    write<’nilainya:’>;
    if<h>900>  then
    writeln<’dapat potongan 50%’>
    else
    writeln<’tidak dapat potongan’>;
    readln;
end.

Program Perbandingan

Program perbandingan;
Uses crt;
Var a,b,c,I,hasil:integer;
Begin
Write(‘masukkan A:’); readln (A);
Write(‘masukkan B:’); readln (B);
Write(‘masukkan C:’); readln (C);
Hasil:=0;
Writeln (‘output:’);
For I :=A to B do
Begin
    Hasil:= i*i+c*c;
    Writeln:=(I,’*’,I,’+’,c,’*’,c,’=;hasil);
End.
End.