plus facile:


program test;
var
a,b:integer;
Begin
for a:=0 to 100 do
for b:= 0 to 100 do
if &#40;sqr&#40;a&#41; + b < 100&#41; then