Заданы два числа. Вывести сообщение, положительным или отрицательным является каждое из чисел. паскаль

var a, b: real;

begin

write ('Введите число a: ') ;

readln (a) ;

write ('Введите число b: ') ;

readln (b) ;

if (a>0) then writeln ('Число a является положительным') else writeln ('Число a является отрицательным') ;

if (b>0) then writeln ('Число b является положительным') else writeln ('Число b является отрицательным') ;

readln;

end.