Ответ:
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.
Объяснение: