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.