Source
program
if1
;
var
a
:
integer
;
begin
writeln
(
'Give a :'
)
;
readln
(
a
)
;
if
(
a>
0
)
then
writeln
(
a
,
' > '
,
0
)
;
end
.
