Question

СРОЧНО!!!!!!!!!
Задача 1: Ввести с клавиатуры целое числа. Выдать
сообщение «число положительное» или нет.
program vetvl1;
var a:integer;
begin
writeln('vvod a');
read(a);
if a>0 then writeln(‘chislo a>0 ')
else writeln(' chislo a<=0 ‘);
end.