Разветвления

[AcidBurst]

умный народ, прокомментируйте, что здесь не так. никак не могу понять.

задача: доказать, что любую целочисленную денежную сумму, большую 7 рублей, можно выплатить без сдачи "трешками" и "пятерками". Для любого, введенного с клавиатуры, n>7 найти такие целые неотрицательные a и b, что 3*a+5*b=n

 n:=strtoint(Edit1.text);
   if (n>7) then
                begin
                    if (n mod 3= 0) then a:=n div 5;
                    if (n mod 5= 0) then b:=n div 3;
                    c:= 3*a + 5*b;
                    if (c=n) then ShowMessage('Выполняется');
                end
                else ShowMessage('Error');

[evg_m]

if (n mod 3= 0) then a:=n div 5;
// чему будет равно a при n=11 (если n не делится на 3)
if (n mod 5= 0) then b:=n div 3;
// чему будет равно b при n =11 (если n не делится на 7)
c:= 3*a + 5*b

[Mad_Cat]

var n:Integer;
  a,b:Integer;
begin
    n:=strtoint(edit1.text);
    a:=0;
    b:=0;
    if n>7 then
    begin
     while n mod 5 <>0 do
      begin
      n:=n-3;
      inc(a);
      end;
      b:=n div 5;
      showmessage('3*'+inttostr(a)+'+5*'+intostr(b)+'='+edit1.text);
    end
    else showmessage('Error!!!!!!!!');
end.

[chesser]

k1:=n div 3;
k2:=n div 5;
for i:=0 to k1 do
 for j:=0 to k2 do
  if (i*3+j*5)=n then
   begin
    ShowMessage('Выполняется');
    break;
   end;
if (i=k1) and (j=k2) then
 ShowMessage('Не выполняется');