составить программу ,которая определяет является ли веденное целое число положительным и выводит на экран соответствующее сообщение :''да'' либо ''нет''

var

a: real;

begin

writeln ('введи произвольное число');

read (a);

if a>0 then writeln ('да');

f a<=0 then writeln ('нет');

end.