Напишите программу проверки, является ли введенное число положительным. (26-е пожалуйста)

Спасибо!)

Пожалуйста

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var n:=ReadReal('Введите число:');  if n>0 then Writeln('Число положительное')  else Writeln('Число не положительное')end.