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

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