Ответ:

var a:integer;

begin

 readln(a);

 if (a>0) and (a mod 3 = 0? True: False) then

 writeln('да')

 else

 writeln('нет');

end.

var a,b:integer;

begin

 writeln('Введите число');

 readln(a,b);

 if a>b then begin

 a:=a+8;

 b:=b*2;

 end

 else begin

 a:=a*3;

 b:=b-10;

 end;

 writeln(a);

 writeln(b);

end.

Объяснение: