[Pascal] Sprawdź, czy liczba jest dodatnia

kalik · Post autor: **kalik** » 27 lis 2011, o 20:21

Wczytaj liczbę całkowitą i sprawdź czy jest dodatnia, ujemna, czy równa 0

adambak · Post autor: **adambak** » 27 lis 2011, o 20:29

program TEST;
var a:integer;

begin
  readln(a);
  if a<0 then writeln('ujemna')
  else if a>0 then writeln('dodatnia')
  else writeln('zero');
end.