Это простые условия, соединенные логическими операциями and, or, not

Это простые условия, соединенные логическими операциями and, or, not

(усл1) and (усл2)

(усл1) or (усл2)

not(усл)

Примеры:

(a*a -2 >=0) and (x<>0)

(a=0) or (y+x<1)

not(z=5)

Задача1. Найти Y =

var

y,x,a: real;

begin

writeln('x= a='); readln(x,a);

if (x-1>=0) and (a<>0) then

begin

y:=sqrt(x-1)/a; writeln (y);

end

else

writeln('нр');

end.

Задача 2 Дано два числа. Если каждое из них положительно, найти их произведение.

Задача 3 Дано два числа. Если хотя бы одно из них положительно, найти их среднее арифметическое иначе поменять у каждого знак.