Question

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

Answer 1

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.

как то так