Даны 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