Составление разветвляющего алгоритма в среде турбо паскаль.

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.

как то так