UYGULAMA10-22EKİM

bir sayının "0"a göre durumu
if,else if, else uygulaması

-------------------------------------------------------------------------

program sayidurumu;
uses crt;
var a : real;

begin

CLRSCR;
writeln('bir sayi yaziniz' :5);
readln(a);

if a>0 then
writeln('pozitif bir sayi yazdiniz' :5)

else if a<0 then
writeln('negatif bir sayi yazdiniz' :5)

else
writeln ('0 yazdiniz' :5);

READLN;

end.