Составление разветвляющего алгоритма в среде турбо паскаль. 1)Определить, является ли число n одновременно положительным и кратным 3

Program test; var  n:shortint; chr:integer; begin  readln(n);  chr:=n mod 3;  i f n>0 then begin    if chr = 0 then writeln(n,' - удовлетворяет условию') else writeln(n,' - не удовлетворяет условию');   end  else begin writeln(n,' - не удовлетворяет условию') end; end. как то так