var
a: real;
begin
writeln ('введи произвольное число');
read (a);
if a>0 then writeln ('да');
f a<=0 then writeln ('нет');
end.
var
a: real;
begin
writeln ('введи произвольное число');
read (a);
if a>0 then writeln ('да');
f a<=0 then writeln ('нет');
end.