Перевести программу на ПЯК, Есть пр. на паскале. Опции

[BooM!ER]

Вот такая прога, элементарная, но по причине своей криворукости не могу перевести ее на ПЯК
с выполнением на абстрактной машине, нужен хелп.

Program P10_1;
  Uses CRT;
 Var T,N : word;
     a,b : word;
Begin
 a:=0;
 b:=0;
 Repeat
  ClrScr;
  Writeln('Введите число N>7');
  Readln(N);
 Until N>7;
 T:=N;
 While (T>0) do
  Begin
   if (T mod 5)=0 then
    begin
     inc(b,T div 5);
     break;
    end;
   if (T mod 3)=0 then
    begin
     inc(a,T div 3);
     break;
    end;
   if (T-5)>0 then
    begin
     inc(b);
     dec(T,5);
    end;
   if (T-3)>0 then
    begin
     inc(a);
     dec(T,3);
    end;
  End;
 ClrScr;
 Writeln('Число ',N,' можно представить как (3*',a,')+(5*',b,')=',N);
 ReadKey;
End.

Вот оригинал: для данного n > 7 найти такие целые неотрицательные a и b, что 3a + 5b = n

Сообщение отредактировано: BooM!ER - 22.12.2006 8:13