ini adalah Algoritma 1

uses crt;

Var
        A : integer;
        B : Integer;
BEGIN
        CLRSCR;
        WRITELN(' Input First Number: ');
        READLN(A);
        WRITELN(' Input First Number: ');
        READLN(b);
        If(a < 0) Then
                BEGIN;
                If ( b<0) Then WRITELN('Kalimat Satu')
                Else
                        WRITELN('Kalimat Kedua')
                END;
        ReadlN();
ENd.