Pascalda Pozitif, Negatif ve Sıfır Olduğunu Bulan Program, Pascalda Pozitif Negatif SIFIR Sayi

uses crt;
var
        A:Longint;
Begin
        Clrscr;
        Write('Bir sayı giriniz='); Readln(A);

        If (A>0) Then Writeln('Girilen Sayı POZİTİF');
        If (A<0) Then Writeln('Girilen Sayı NEGATİF');
        If (A=0) Then Writeln('Girilen sayı SIFIR');
        Readln;
End.