TUGAS 6

 Tugas 6


INPUT(N)
IF (N > 50) THEN
    IF ( N > 75) THEN
      N ß N – 25
    ENDIF     
ELSE
   N ß N + 10
ENDIF
OUTPUT(N)
Berapa nilai akhir N, apabila N awalnya diINPUT dengan nilai 85 ? 60
Bahasa Pascal:
uses crt;
var
        N:Integer;
BEGIN
        CLRSCR;
        WRITELN('Masukan Nilai N: ');
        READLN(N);
        If ( N>50) Then
                If(N>75) Then N:= N - 25
        Else
                N:= N + 10;
        WRITELN('Nilai Akhir N: ',n);
        READLN();
End.