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

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.