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

if(a>0) and (b>0) then writeln ('yes') else writeln (no);

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;beginwriteln('vvedite a,b:=');readln(a,b);if (a<0) and (b<0) then writelln('yes') else writeln('no');readln;end