PPT Slide

variable B : integer := 1;

begin

Lopp1:

for A in 1 to 10 loop

B := 20;

Loop2;

while B >= (A*A) loop

B := B - A;

end loop Loop2;

end loop Loop1;

wait;

end process;