If..then..else Опции

[vg2.0]

Подскажите пожалуйста, как сделать так чтобы программа выводила сообщение что нет вариантов, когда их нет.

program proga;
uses crt;
var M,i,j:integer;
begin clrscr;
write('Введите число ');
readln(M);
for i:=1 to M do begin
   for j:=1 to M do begin
      if (sqr(i))+(sqr(j))=m then writeln(i,'^2','+',j,'^2','=',m);
      end;
      
end;readkey;
end.

Заранее обромное спасибо!

Сообщение отредактировано: volvo - 7.06.2005 17:30