Даны 2 числа. Проверить будут ли они положительные.

Program PRIMER; Uses crt; var a,b: real; Begin      write('Введите число а = ');      readln(a);      write('Введите число b = ');      readln(b);      writeln;      if a<0 then      writeln ('Число а отрицательное');      if a>0 then      writeln ('Число а положительное');      if a=0 then      writeln ('Число а равно нулю');      if b<0 then      writeln ('Число b отрицательное');      if b>0 then      writeln ('Число b положительное');      if b=0 then      writeln ('Число b равно нулю'); End.      

program primer; var a,b:integher; begin writeln('vvedite a,b:='); readln(a,b); if (a<0) and (b<0) then writelln('yes') else writeln('no'); readln; end