Question

Помогите что здесь не так (даны два числа x и y найти положительное)

Program e5;
var x,y:intenger;
begin
writlen('Найдём положительное число');
writeln('Введите x');
readln(x);
if(x>0)then ('x-положительное число') else if (x<0) then ('x-отрицательное число')
writeln ('Введите y');
readln (y);
if (y>0) then ('y-положительное') else (y>0) then ('y-отрицательное число')
end.

Answer 1

Ответ:

во первых перед вторым if else не нужен по моему, во вторых при проверке y условие стоит if (y>0) а выводит, якобы оно отрицательное