Составить программу для нахождения уравнения (в паскале)

[EvilneSS]

Люди добрые помогите сделать задачу в паскале.

Составить программу для нахождения уравнения n^2+ m^2= k^2
из интервала [a,b] , где n, m, k целые числа.

[Hacker19_90]

for n := a to b do
    for m := a to b do
        for k := a to b do
            if (sqr(n) + sqr(m)) = sqr(k) then Writeln (n:4, m:4,k:4);

[EvilneSS]

А полный код можно?

[Hacker19_90]

ТОЛЬКО ПО СПЕЦ ЗАКАЗУ!!!

[EvilneSS]

ясно..............

[Sparkman]

uses crt;
var n,m,k,a,b : integer;
begin
     clrscr;
     write('Enter a: ');
     readln(a);
     write('Enter b: ');
     readln(b);
     if a<=b then
     begin
          writeln('Answer:');
          for n:=a to b do
              for m:=a to b do
                  for k:=a to b do
                      if (sqr(n)+sqr(m)) = sqr(k) then
                           writeln('n = ',n,', m = ',m,', k = ',k);
     end else writeln('a>b');
     writeln('press enter for exit..');
     readln;
end.

[EvilneSS]

Ребята, огромное вам спасибо!

[Sparkman]

Незачто)
я просто себя вспомнил, как я мучался с лабами в новый год. Правда сделал в итоге все сам, но если б кто-нибудь помог я бы был невероятно благодарен))) Но инета у меня тогда не было.