var x, y, vysledek;

begin
	do
		begin
			x:= 0;
			
			do
				x:= x + 1;
			while x < 5;
			
			vysledek:= vysledek + x;
			
			y:= y + 1;
		end;
	while y < 5;
end.